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PREFACE 


This publication describes the procedures 
for (a) compiling and executing Basic Pro¬ 
gramming Support FORTRAN IV programs, 
(b) editing and updating the FORTRAN IV 
system, and (c) preparing FORTRAN IV jobs 
for machine runs. 

This publication is divided into four 
major sections. The first section deals 
with compilation and execution. It covers 
the necessary control statements, the 
placement of those statements within an 
input deck, the minimum machine require¬ 
ments for the various types of jobs, and 
the factors affecting the permissible size 
of source and object programs. 


The second section deals with editing 
the compiler and/or updating the subprogram 
library. It covers the format of the 
FORTRAN system tape as supplied by IBM, and 
the control statements necessary to edit 
the system or update the system library. 


The third section provides step-by-step 
operating instructions for running a job. 

The fourth section includes appendixes 
describing compile- and object-time mes¬ 
sages, information on writing subprograms 
in assembler language, FORTRAN-supplied 
subprograms, compiler output (object deck) , 
and manually modifying the correspondences 
between data set reference numbers and 
actual devices. 

FORTRAN programmers interested in sec¬ 
tions one, two and four should be thorough¬ 
ly familiar with the publication, Basic 
Programming Support FORTRAN IV Language , 
Form C28-6504. Systems programmers primar¬ 
ily interested in section two should be 
familiar with both the language publication 
and the publication, Basic Programming Sup¬ 
port FORTRAN IV, Program Logic Manual , Form 
C28-6584. Operators interested in section 
three need nothing more than a general 
familiarity with the operation of 
System/360. 


This publication was prepared for production using an IBM computer to update 
the text and to control the page and line format. Page impressions for 
photo-offset printing were obtained from an IBM 1403 Printer using a special 
print chain. 


Copies of this and other IBM publications can be obtained through IBM Branch 
Offices. 


A form for readers* comments appears at the back of this publication. It may 
be mailed directly to IBM. Address any additional comments concerning this 
publication to the IBM Corporation, Programming Systems Publications, Department 
D58, PO Box 390, Poughkeepsie, N. Y. 12602 


1965 by International Business Machines Corporation 
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2. Lower case letters and words are gen¬ 
eric terms representing information 
that must be supplied; i.e., a substi¬ 
tution must be made when coding a 
parameter or option so represented. 

3. Information within braces { } rep¬ 

resents an option that may be included 
or omitted entirely, depending upon 


the user's requirements. If one of 
the alternatives is underlined, the 
FORTRAN system assumes that alterna¬ 
tive if the entire option is omitted. 

An ellipsis (three periods) indicates 
that a variable number of items may be 
listed. 


6 



COMPILATION AND EXECUTION 


This section provides instructions for 
compiling and executing programs written in 
IBM System/360 Basic Programming Support 
FORTRAN IV Language. 

The Basic Programming Support FORTRAN 
compiler accepts as input one or more 
source or object programs (or subprograms) 
in many combinations, called a FORTRAN 
" lob ," along with any associated input 
data. 

In preparing a FORTRAN job, the user 
provides control information in control 
statements to tell the compiler how to 
handle a given type of job. To reduce the 
possibility of errors in using control 
statements, the compiler provides "standard 
options;" that is, in the absence of con¬ 
trol information, the compiler makes 
assumptions on how to handle a given job. 

The control statements, their placement 
within an input deck, diagnostic messages 
produced at source and object time, machine 
requirements, and program size considera¬ 
tions are described in the following text. 


CONTROL STATEMENTS 


Control statements are nonexecutable 
statements that inform the FORTRAN compiler 
about the nature of a job. There are two 
categories of control statements: compila¬ 
tion and execution statements; and FORTRAN 
system tape maintenance statements. The 
latter are described in the section 
"FORTRAN System Maintenance." 

The compilation and execution control 
statements specify the following type of 
information: 

1. The name of the job and/or the name of 
each individual program within it. 

2. Whether the job consists of one pro¬ 
gram, or a combination of source and 
object programs. 

3. Whether the programs within a job are 
to be: 

a. Compiled only, 

b. Compiled and executed, or 

c. Executed only. 


4. The type of output desired, such as 
program listing, object program card 
deck, or storage layout map. 


5. The end of a particular job or the 
beginning of input data, if any. 


6 . The correspondence between data set 
reference numbers used in a program 
and the actual input/output (I/O) 
device addresses for a particular job. 


Five control statements are used to 
specify the preceding information. They 
are: /JOB, /FTC, /DATA, /SET, and /LOAD. 
Each must be preceded by a slash (/). 


With the exception of the /DATA control 
statement, all control statements are 
optional and have optional parameter lists. 
The absence of a particular parameter with¬ 
in a control statement, or in fact the 
statement itself, implies that a predefined 
specification (known as a standard option) 
is to be assumed by the compiler. Each 
control statement, along with its param¬ 
eters, is described in the following text. 
Examples of control statements are in card 
format showing the column numbers in which 
the parameter list (if any) must begin. 


/JOB CONTROL STATEMENT 


The /JOB control statement is the first 
statement of a job. It has two purposes: 

(1) specifies whether the job consists of 
one or more compilations and (2) informs 
the FORTRAN compiler whether the job is to 
be compiled and executed or compiled only. 

(If the job consists solely of object 
programs, it may be executed by a /LOAD 
control statement; see the section, "/LOAD 
Control Statement.") 


Associated with the /JOB control state¬ 
ment is a parameter list composed of two 
option classes: 

1. SINGLE or MULTIPLE. 

2. GO, GOGO, or NOGO. 


Compilation and Execution 
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SINGLE or MULTIPLE Option 


Format of /JOB Statement 


The parameters SINGLE and MULTIPLE 
inform the FORTRAN compiler about the num¬ 
ber of compilations to be performed for a 
certain job (i.e. , one or several) . 

The parameter SINGLE specifies that the 
job consists of a single compilation of a 
source program or source subprogram. The 
job to which this parameter applies should 
not comprise more than one source program 
because only one compilation process is 
specified. However, as many object pro¬ 
grams as desired may be included in the 
job. 

The parameter MULTIPLE specifies that 
the job consists of several compilations, 
depending on the number of source programs 
and source subprograms in the job. The job 
itself may comprise as many object programs 
as desired because the parameter applies 
only to the number of compilations in a 
job; not the total number of programs in a 
job. 

Embedded blanks are not permitted within 
the parameters. If neither SINGLE nor 
MULTIPLE is specified, the standard option 
is MULTIPLE. 


GO, GOGO, or NOGO Options 


The parameter GO specifies that the 
entire job is to be compiled and executed. 
If there are no serious source program 
errors, each program in the job (i.e., the 
compiled source programs and any object 
programs) is written on a tape (called a GO 
tape) . When the entire job has been com¬ 
piled and written on the GO tape, the tape 
is loaded into storage and execution com¬ 
mences. If, however, there are serious 
source program errors, execution is not 
attempted (see the section, "Diagnostic 
Messages") . 

The parameter GOGO also specifies that 
the job is to be compiled and executed. 
However, unlike the GO option, a GO tape is 
always produced and execution of the job is 
attempted regardless of any errors existing 
in the job. Note, however, that these 
errors may cause premature termination of 
the job. 

The parameter NOGO specifies that the 
job is to be compiled only; no execution 
occurs and no GO tape is produced. 

Embedded blanks are not permitted within 
the parameters. If neither GO, GOGO, nor 
NOGO is specified, the standard option is 
GO. 


Figure 1 shows the format of the /JOB 
statement. 


j Column 1 

M 

I 

j/JOB 

I 

L_ 

Figure 1• 


Column 10 

t 

(SINGLE \ 
1 MULTIPLE 


GO 

NOGO 

GOGO 


Format of /JOB Statement 


The following are considerations in 
using the /JOB statement: 


1. /JOB must start in column 1. 


2. The option classes may appear in any 
order, the first starting in column 

10 . 

Examples : 

/JOB SINGLE,NOGO 

/JOB GO 

/JOB GOGO,MULTIPLE 

/JOB 


3. Each parameter must be separated from 
the other only by a comma. The first 
blank encountered after column 10 
results in whatever follows being 
regarded as comments. This comments 
field may be used for specifying the 
name of the job. The entire /JOB 
statement is always printed on-line. 

Examples: 

/JOB SINGLE,GO PROBLEM1 

/JOB PR0BLEM2 


4. If two parameters in the same option 
class appear in a /JOB statement, the 
one appearing last is used. 

5. If a /JOB statement is omitted from 
the job, the standard options assumed 
are: 

/JOB MULTIPLE,GO 

6 . Only one /JOB statement should be used 
for each job. 
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/FTC CONTROL STATEMENT 


DECK or NODECK Option 


The /FTC control statement may precede 
each source program or source subprogram in 
a job. It has three purposes: (1) permits 
the user to uniquely name each program in 
his job, (2) requests optional output from 
a compilation such as object program on 
cards (deck) , printout of source program, 
and a layout of storage reserved for pro¬ 
gram, and (3) allows the user to specify 
the size (in bytes) of main storage in 
which the job is compiled and/or executed. 


Associated with the /FTC statement is a 
parameter list composed of five option 
classes: 


1. NAME=xxxxxx, where xxxxxx is 1 through 
6 characters, the first of which must 
be alphabetic. 


2. DECK or NODECK 


3. LIST or NOLIST 


4. MAP or NOMAP 


5. SIZE=xK, where x is in the range, 
16<x<64, and K represents 1024 bytes. 


NAME= xxxxxx Option 


The parameter NAME =xxxxxx specifies the 
name the user wishes to assign to the 
program or subprogram. If the job consists 
of more than one program, additional /FTC 
statements with different names may be 
used, one for each program. If this is 
done, each /FTC statement should precede 
each program, respectively. However, there 
is no necessity in specifying a name for 
each program in a job. If no specification 
is made, the assumed name for a main 
program is MAIN; for a subprogram the 
assumed name is the subprogram name in the 
header source statement (e.g., FUNCTION 
SUM (X, Y) ) . 


Embedded blanks are not permitted within 
the parameter NAME=xxxxxx. 


The parameter DECK specifies that the 
compiled source program (i.e., the object 
P ro U ram ) is to be punched on cards; the 
parameter NODECK specifies no object pro¬ 
gram deck output. 


If the job is GO or GOGO and the DECK 
option is specified, the object program 
deck is produced in addition to the GO tape 
containing the object programs. These 
object programs produced on the GO tape are 
loaded into storage for execution; the 
object deck is not used. It is merely 
additional output requested by the program¬ 
mer. 


If the job is NOGO, the compiled source 
program can be executed only if the DECK 
option is specified. In this case, how¬ 
ever, execution of the object deck is 
considered to be a different job. If it is 
desired to compile and execute all in one 
job, the GO or GOGO option should be 
specified. 


Embedded blanks are not permitted within 
the parameters. If neither DECK nor NODECK 
is specified, the standard option is 
NODECK. 


LIST or NOLIST Option 


The parameter LIST specifies that the 
source program is to be printed (listed) on 
the device associated with data set ref¬ 
erence number 3 (usually a printer) ; the 
parameter NOLIST specifies no listing. 


Embedded blanks are not permitted within 
the parameters. If neither LIST nor NOLIST 
is specified, the standard option is LIST. 


An example of a LIST printout is shown 
in Figure 2. This printout is the source 
program listing of Sample Program 1, shown 
in Appendix D, of the publication IBM 
System/360: Basic Programming Support 
FORTRAN IV , Form C28-6504. 
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! BPS FORTRAN IVD COMPILER VERSION 1 LEVEL 0 JUNE 1965 


/FTC 

DECK 




BEGIN COMPILATION 


_ 

C 


PRIME NUMBER PROBLEM 


- S.0001 


100 

WRITE (6,8) 


- S.0002 


8 

FORMAT (52H FOLLOWING IS A LIST OF 

PRIME NUMBERS FROM 1 TO 1000/ 

_ 


119X r 1H1/19X,1H2/19X,H3) 


- S.0003 


101 

1=5 


- S.0004 


3 

A=I 


- S.0005 


102 

A=SQRT (A) 


- S.0006 


103 

J=A 


- S.0007 


104 

DO 1 K=3,J,2 


- S.0008 


105 

L=I/K 


- S.0009 


106 

IF (L+K-I) 1,2,4 


- S.0010 


1 

CONTINUE 


- S.0011 


107 

WRITE (6,5) I 


- 3.0012 


5 

FORMAT (120) 


- S.0013 


2 

1=1 + 2 


- S.0014 


108 

IF (1000-1) 7,4,3 


- S.0015 


4 

WRITE (6,9) 


- S.0016 


9 

FORMAT (14H PROGRAM ERROR) 


- S.0017 


7 

WRITE (6,6) 


- S.0018 


6 

FORMAT (31H THIS IS THE END OF THE 

PROGRAM) 

- S.0019 



CALL DUMP (I, L) 


- S.0020 


109 

STOP 


- S.0021 



END 



END OF COMPILATION MAIN 


Note: The numbers S.0001 through S.0021 represent sequential internal statement num¬ 
bers which are assigned to each source statement by the compiler. Comments lines and 
continuation lines are not assigned internal statement numbers. 


Figure 2. Sample Program Listing 


MAP or NOMAP Option 

The parameter MAP specifies that a stor¬ 
age map of the source and object program is 
to be printed on-line; the parameter NOMAP 
specifies no printout. 

A storage map at compilation time gives 
a complete listing of: 

1. The relative addresses and names of 
all variables used in the source pro¬ 
gram, including FUNCTION names, and 
in-line subprogram names. 

2. The relative addresses and names of 
all external references made by the 
program, including all subprograms 
except in-line subprograms. 

3. All user-specified literal constants 

in a program along with their relative 
addresses (e.g., in the statement 
A=2.0; 2.0 is a user-specified literal 

constant) . 

4. All compiler-generated constants along 
with their relative addresses. 


5. A branch list consisting of all ref¬ 
erenced statement numbers (except FOR¬ 
MAT statement numbers) in a program 
along with their relative addresses. 

6 . The relative address of the entry 
point where execution is to begin. 

7. The size in bytes of the program. 

8 . The size in bytes of the blank COMMON 
area. 

A storage map at execution time gives a 
complete listing of the absolute addresses 

(in hexadecimal) at which each object pro¬ 
gram in a job is loaded. 

Embedded blanks within the MAP or NOMAP 
parameters are not permitted. If neither 
option is specified, the standard option is 
MAP. 

An example of a MAP printout is shown in 
Figure 3. This printout is the source 
program map of Sample Program 1, shown in 
Appendix D, of the publication IBM 
System/360: Basic Programming Support 

FORTRAN IV , Form C28-6504. 
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STORAGE 

MAP VARIABLES (TAG C = 

= COMMON, 

E = EQUIVALENCE) 

— 

i 

|NAME TAG 

REL ADR 

NAME TAG 

REL ADR 

NAME TAG 

REL ADR 

NAME TAG 

REL ADR 

i 

i 

1 I 

000090 

A 

000094 

J 

000098 

K 

00009C 

i 

j L 

0000A0 






i 

i 




EXTERNAL REFERENCES 




i 

i 

|NAME 

REL ADR 

NAME 

REL ADR 

NAME 

REL ADR 

NAME 

REL ADR 

i 

i 

j SQRT 

0000A4 

DUMP 

0000A8 




i 

i 




CONSTANTS 




i 

i 

| NAME 

REL ADR 

NAME 

REL ADR 

NAME 

REL ADR 

NAME 

REL ADR 

i 

|00000005 

0000C4 

00000002 

0000C8 

000003E8 

oooocc 


i 

i 



IMPLIED EXTERNAL 

REFERENCES 



i 

i 

| NAME 

REL ADR 

NAME 

REL ADR 

name 

REL ADR 

NAME 

REL ADR 

i 

i 

|IBCOM 

000168 







i 

i 

j STATEMENT 

NO. REL ADR 

STATEMENT NO. REL ADR STATEMENT 

NO. REL ADR 

STATEMENT NO 

- REL ADR 1 

| 00100 

00019E 

00008 

0000D0 

00101 

0001B4 

00003 

0001BC 

j 

| 00102 

0001DC 

00103 

0001EA 

00104 

000208 

00105 

000210 

| 

| 00106 

000220 

00001 

000238 

00107 

00024C 

00005 

00011C 

1 

| 00002 

000268 

00108 

000274 

00004 

000288 

00009 

000120 

| 

| 00007 

00029C 

00006 

000134 

00109 

0002 BA 


I 

S. 

0001 SIZE OF COMMON 

00000 





| 

1 . 

SIZE OF PROGRAM 00712 





i 

i 

| Note: The 

name and relative address of each 

statement 

number, constant, variable, and 

-1 

| 

j external 

reference is 

printed as 

shown. In 

addition 

, a tag of C 

or E is printed for 

| 

| each variable specifying whether 

it is in COMMON or EQUIVALENCE, 

respectively 

; other- 

| 

| wise, the 

tag field is left blank. 




l 

L 








.j 


Figure 3. Sample Program Storage MAP 


SIZE=xK Option 


The parameter SIZE=xK, where x is in the 
range, 16<x<64, specifies the size in bytes 
of usable main storage in which the source 
program is compiled. (K represents 1024 
bytes.) The compilation speed of a job may 
be affected appreciably by the size of the 
machine. (In general, the larger the 
machine, the faster the compilation.) 

If the specified SIZE option is greater 
than 64K (e.g., SIZE=256K) , only the first 
64K bytes of main storage are used for the 


compilation. However, all main storage 
(e.g., 256K) is used for the execution. 

Embedded blanks are not permitted within 
the SIZE=xK parameter. If no SIZE option 
is specified, the standard option is 
SIZE=16K. 


Format of /FTC Statement 


Figure 4 shows the format of the /FTC 
statement. 


|Column 1 Column 10 

I ♦ t 

I 

|/FTC 

I 


( ) ( DECK ) ( LIST j ( MAP ) ( ) 

j NAME=xxxxxx \ , | | , { } , { \ , {SIZE=xK \ 

l ) { NODECK J l NOLIST J I NOMAP J l J 


Figure 4. Format of /FTC Statement 
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SIZE=64K 


The following are considerations in 
using the /FTC statement: 

1. /FTC must start in column 1. 

2. The parameters may appear in any 
order, the first starting in column 
10 . 

Examples : 

/FTC NODECK,LIST,NOMAP,SIZE=32K 

/FTC NAME=PR0B1,SIZE=64K,NODECK 

/FTC 

/FTC LIS T,MAP,NODECK,SIZE=16K 

Note that the third and fourth exam¬ 
ples above are effectively the same 
statements (see item 6 ) . 

3. Each parameter must be separated from 
the next only by a comma. The first 
blank encountered after column 10 
results in whatever follows being 
regarded as comments. This comments 
field may be used for any purpose. 
The entire /FTC statement is printed 
along with comments whether or not the 
LIST or NOLIST option is specified. 

4. If two parameters in the same option 
class appear in a /FTC statement, the 
one appearing last is used. 

5. If a /FTC statement precedes only the 
first program in a job, all subsequent 
programs in the job are subject to the 
same specifications stated or implied 
in that statement. However, if an 
additional /FTC statement is encoun¬ 
tered prior to any other program in a 
job, that program and all remaining 
programs (until the next /FTC state¬ 
ment appears) are subject to its 
specifications. For example, the fol¬ 
lowing statements: 

/FTC NOD ECK,NOMAP, SIZ E= 3 2K 


/FTC 


/FTC NAME=PROB2 


The second /FTC statement would cause 
the SIZE option to be reset at 16K 
(the standard option) . At object time 
the entire job would be executed 
assuming 16K of storage. 

7. If no /FTC statements appear in a job, 
the standard options assumed for the 
entire job are: 

/FTC NODECK,LIST,MAP,SIZE=16K 


/DATA CONTROL STATEMENT 


The /DATA control statement is used to 
terminate all jobs. It should appear as 
the first card after the last source (or 
object) program in a job or immediately 
preceding any object time data cards. 

If no /DATA control statement is speci¬ 
fied, a warning message is produced and any 
cards remaining in the input device (e.g., 
card reader) are read until an end-of-file 
condition is sensed. Any data cards for 
use during execution may have been read and 
will have been lost for that job; however, 
normal operating procedure resumes. 

Embedded blanks are not permitted within 
the characters /DATA. The /DATA control 
statement has no parameters. Comments 
within the statement are not permitted. 




/FTC 


NOLIST 


Format of /DATA Statement 


results in the specification made in 
the first /FTC statement to hold for 
all programs up to the second /FTC 
statement. Thereafter, the second 
/FTC statement (along with its speci¬ 
fied and standard options) is consid¬ 
ered the specification for all remain¬ 
ing programs in the job. 


Figure 5 shows the format of the /DATA 
statement. 


r- 

| Column 1 

I t 

| /DATA 

L_ 

Figure 5. Format of /DATA Statement 


i 

I 

I 


j 


6 . At object time, the specifications in 
the last /FTC statement in the job 
take precedence. For example: 


The following are considerations in 
using the /DATA statement: 


1 
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1• /DATA must start in column 1. 

2. When using an IBM 1442 Card Read Punch 
in a compilation specifying DECK 
option, a sufficient number of blank 
cards for punching the object program 
must be inserted between the source 
program and the /DATA statement. An 
estimate should be made of the size of 
the object program to be punched on 
cards. (See the section, "Object Pro¬ 
gram Size.") 

3. Only one /DATA statement should be 
used per job. 


/SET CONTROL STATEMENT 


The /SET control statement (1) specifies 
the number of print positions per line 
available on a particular printer and 
(2) changes the correspondence between data 
set reference numbers used in a program and 
the actual input/output device to which 
they refer. For example, a data set ref¬ 
erence number may be associated with a 
particular tape device during execution of 
a program. Sometime later, during execu¬ 
tion of a different program or re-execution 
of the same program, that same data set 
reference number may refer to a card 
reader. 

The correspondences of data set ref¬ 
erence numbers and device addresses are 
established in the Device Assignment Table 
(DAT) . At the initiation of job process¬ 
ing, the DAT is loaded from the FORTRAN 
system tape into main storage and remains 
there until another job is processed. 
Figure 6 shows the pertinent information in 
the DAT as supplied by IBM. 

For example, data set reference number 0 
corresponds to the FORTRAN system tape 
contained on a 2400 series tape device with 
an actual address (in hexadecimal) of 180. 

The first digit of the actual 
input/output device address represents the 
channel. There may be up to seven chan¬ 
nels, represented in hexadecimal as 0 to 6, 
where 0 is the multiplexor channel. The 
next two digits represent the device 
address on a particular channel and may be 
in the range of 00 to FF. 

The actual device address and type of 
device should always correspond; such a 
correspondence is dependent solely on the 
machine configuration of a particular 
installation. Thus, the /SET control 
statement permits the user to change .only 
the correspondence of a data set reference 
number with a particular device. 



The /SET control statement provides the 
facility for changing the DAT during: 


1. A compilation (source time) . 


2. An execution (object time) . 

3. An edit of the FORTRAN system tape. 

(See the section, "FORTRAN System 
Maintenance.") 


Compilation and Execution 
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If the /SET control statement is used 
during a compilation and/or an execution, 
the DAT is changed only temporarily; that 
is, the specifications made in the /SET 
control statement apply only to the program 
or programs which it precedes. Therefore, 
if the user finds the correspondences in 
the DAT suitable for his needs, no /SET 
control statement is needed. 

Associated with the /SET control state¬ 
ment is a parameter list composed of two 
option classes: 

1. Device Assignment Option. 

2. LINE=xxx. 


Device Assignment Option 


The device assignment option specifies 
the relationship of data set reference 
numbers and actual input/output device 
addresses. The option is written as: 


b=adr (ttttds) 


b 

represents a data set reference number 
(e . g •, 5) • 

a dr 

represents the actual input/output 
device address in hexadecimal that 
corresponds to b (e.g.,00C) . 

(tttt ds) 

represents the type of device (e.g., 
2540) with a fixed actual address of 
adr . 


The tttt portion may specify the follow¬ 
ing type of I/O devices: 2400 Series tape 
devices, 2540 or 1442 Card Read Punch 
devices, 1403 or 1443 Printers, and the 
1052 Printer-Keyboard. To specify a 
7-track 2400 Series tape device, the tttt 
portion is written as 2400 followed by a ds 
portion. 

The ds portion is specified only when an 
input/output device address (adr) refers to 
a 7-track tape. In this case, d designates 
the density in which data is read or 
written and s represents how the data is 
transferred. (If the ds is omitted, the 
standard option is a 9-track tape.) 


The d may have one of three forms: L, M, 
or H. 

1. L for low density of 200 characters 
per inch. 


2. M for medium density of 556 
characters per inch. 


3. H for high density of 800 characters 
per inch. 


The s may also have one of three forms: 
C, T, or N. However, the machine in which 
the job is processed must have the special 
feature of C and T data conversion. No 
special feature is required for N data 
conversion. 


1. The C conversion is used to communi¬ 
cate with current systems when reading 
and writing binary data. As such, it 
enables the user to: (1) write data 

from System/360 storage (8-bit EBCDIC 
configuration) onto a 7-track tape 
without the loss of any bits; and 
(2) read data from a 7-track tape into 
System/360 storage, reorganizing the 
bits into 8-bit configuration. The 
data written on the 7-track tape is 
not the BCDIC equivalent of the EBCDIC 
data written from storage. 


For example. Figure 7 shows the layout 
of three bytes (eight bits each) in 
storage which, when written, are 
organized as four 6-bit characters on 
a 7-track tape. Note that no bits are 
lost in the data transfer. The trans¬ 
formation of bits from storage to 
7 -track tape is a direct process; the 
transition stage is shown only to 
illustrate the type of change. 


If the number of bytes written from 
storage does not produce an exact 
number of characters on a 7-track 
tape, the proper number of zeros are 
inserted to the right of the remaining 
bits producing an exact number of 
characters. For example, if four 
bytes are written from storage onto a 
7 -track tape, the data is organized as 
six characters; the last character 
consists of the last two bits of the 
fourth byte followed by four zeros. 
On input, the six characters are read 
into storage and reorganized as four 
bytes; the last four zeros are 
ignored. 
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Figure 7. Data Transfer From Storage to a 7-Track Tape Using C Option 
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Figure 8. Data Transfer From Storage to a 7-Track Tape Using N Option 


2. The N conversion enables the user to: 

(1) write data from System/360 storage 

(8-bit EBCDIC configuration) onto a 
7-track tape such that the leftmost 
two bits of each byte are truncated; 
and (2) read data from a 7-track tape 
into System/360 storage, inserting two 
high-order zero bits for each 6 bits 
read, thereby producing an 8-bit con¬ 
figuration. For example. Figure 8 
shows the layout of three bytes in 
storage, which, when written, are 
organized as three 6-bit characters on 
a 7-track tape. Note that the left¬ 
most two bits of each byte are trun¬ 
cated in the process. The transforma¬ 
tion of bits from storage to 7-track 
tape is a direct process; the transi¬ 
tion stage is shown only to illustrate 
the type of change. 


3. The T conversion is used to communi¬ 
cate with current systems when reading 
and writing BCD data. As such, it 
enables the user to: (1) write data 

from System/360 storage (8-bit EBCDIC 
configuration) onto a 7-track tape, 
converting each byte to its BCDIC 
equivalent; and (2) read data from a 
7-track tape (6-bit BCDIC 

configuration) into System/360 stor¬ 
age, converting each character to its 
EBCDIC equivalent. 


Embedded blanks are not permitted within 
the device assignment option. If the 
option is not specified, the correspond¬ 
ences in the DAT are the standard options. 
If the ds portion is omitted, the standard 
option is a 9-track tape. 


Line—xxx Option 


The LINE=xxx option, where xxx is a 
decimal number, specifies the permissible 
number of print positions per line on a 
printer. The xxx portion should not exceed 
the actual number of print positions avail¬ 
able on the printer. 

An incorrect format specification in a 
source program FORMAT statement might not 
be detected by the FORTRAN system (i.e., no 
error message is produced) if the xxx 
portion exceeds the actual number of print 
positions available. For example, assume 
that there are 132 print positions avail¬ 
able on a printer associated with data set 
reference number 5. Then if a source 
P ro U r Mi containing the statements: 

10 FORMAT (513 0) 


WRITE (5,10) I, J,K,L,M 


Compilation and Execution 
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were preceded by the specification LINE=150 
in a /SET statement, the FORMAT statement 
would not be recognized as an error, 
because its specification is in agreement 
with that in the /SET statement. However, 
during object-time execution of the pro¬ 
gram, only the first 132 of the 150 speci¬ 
fied characters are printed. 

Embedded blanks are not permitted within 
the option. If LINE=xxx is not specified, 
the standard option is LINE=120. 


another /SET statement defining a dif¬ 
ferent data set reference number, both 
specifications hold at compilation and 
execution time. 


Example 1 : 

/SET 3=180 (2400) 


program 1 statements 


Format of /SET Statement 


/SET 


3=280 (2400) 


Figure 9 shows the format of the /SET 


statement. program 2 statements 


r-1 

I Column1 ColumnlO I 

j t t | Explanation : The specification made 

|/SET { b=adr (ttttds) 1 ,{LINE=xxx } j preceding program 1 holds until over- 

l___-—I--J ridden by the second /SET statement as 


Figure 9. Format of /SET Statement shown. The second specification holds 

for program 2. 


The following are considerations in 
using the /SET statement: 

1. /SET must start in column 1. 

2. The parameters may appear in any 
order, the first starting in column 

10 . 

Examples : 

/SET 3=2 80 (2400LT) ,LINE=132 

/SET LINE=1 44,2=00A (1442) 

3. Each parameter must be separated from 
the next only by a comma. The first 
blank encountered results in whatever 
follows being regarded as comments. 

4. If several LINE specifications are 
made or the same data set reference 
number is defined more than once in a 
/SET statement, the ones appearing 
last are used. 

5. The specifications made in a /SET 
statement at compilation time apply to 
the program it precedes and all 
remaining programs in the job unless 
overridden by additional /SET state¬ 
ments. When a /SET statement is over¬ 
ridden by another /SET statement, the 
specifications made in the last /SET 
statement are used for the entire job 
at execution time. However, if a /SET 
statement defining a relationship 
between a data set reference number 
and a particular device is followed by 


Example 2 : 

/SET 5=380 (2400) 


program 


statements 


/SET 


3=180 (2400) 


program 


2 


statements 


Explanation : The specification made 

preceding program 1 pertains to both 
program 1 and program 2. The specifi¬ 
cation made in the second /SET state¬ 
ment applies only to program 2. 

6 . If no /SET statements appear in a job, 
the specifications within the device 
assignment table hold. In ^addition, 
LINE=120 is the standard option. 


/LOAD CONTROL STATEMENT 


The /LOAD control statement immediately 
precedes the first object program in a job 
consisting of a single main object program 
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and several (if any) object subprograms. 
The /LOAD control statement is used to load 
all the object programs of a job into 
storage and transfer control for execution 
to the main program. In so doing, it: 

(1) permits the user to specify whether the 
job is to be loaded from tape or cards and 

(2) provides the option of printing the 
absolute load addresses (in hexadecimal) of 
each object program in the job. 


Associated with the /LOAD control state¬ 
ment is a parameter list composed of two 
option classes: 


1. MAP or NOMAP. 


2. TAPE or CARDS. 


MAP or NOMAP Option 


The parameter MAP specifies that the 
absolute addresses (in hexadecimal) , at 
which each object program in a job is 
loaded, are to be printed. The parameter 
NOMAP specifies no load addresses are 
printed. 

If the job is both a compilation and an 
execution, the load address of each program 
is printed by specifying the MAP option in 
an /FTC control statement. (See the sec¬ 
tion, "/FTC Control Statement.") 

Embedded blanks are not permitted within 
the MAP parameter. If neither MAP nor 
NOMAP is specified, the standard option is 
MAP. 


TAPE or CARDS Option 


The parameter TAPE specifies that the 
object programs in a job are to be loaded 
from the unit specified by data set ref¬ 
erence number 12. (See the table of device 
address assignment in the section, "/SET 
Control Statement.") 

The parameter CARDS specifies that the 
job is loaded from the unit specified by 
data set reference number 1. 

Embedded blanks are not permitted within 
either parameter. If neither TAPE nor 
CARDS is specified, the standard option is 
CARDS. 


Format of /LOAD Statement 


Figure 10 shows the format of the /LOAD 
statement. 


| Column 1 Column 10 

I t t 



Figure 10. Format of /LOAD Statement 


The following are considerations in 
using the /LOAD statement: 

1. /LOAD must start in column 1. 

2. The option classes may appear in any 
order, the first starting in column 

10 . 

Examples : 

/LOAD CARDS,MAP 

/LOAD TAPE 

/LOAD 

Note that the first and third examples 
above are effectively the same state¬ 
ments. 

3. Each parameter must be separated from 
the other only by a comma. The first 
blank encountered after column 10 
results in whatever follows being 
regarded as comments. 

4. If two parameters in the same option 
class appear in a /LOAD control state¬ 
ment, the one appearing last is used. 

5. If the job is to be compiled and 
executed (i.e., GO or GOGO is 
specified) , a /LOAD statement is not 
required. The compiler assumes that 
the compiled programs are to be loaded 
from tape. 

6 . If the job consists of several object 
main programs, the entire job is 
loaded into storage and control is 
passed to the last object main program 
loaded. 


DECK STRUCTURE USING CONTROL STATEMENTS 


The following deck structure examples 
illustrate how various job configurations 
may be combined with control statements to 
produce the desired results. 


Compilation and Execution 


17 




Example 1: Figure 11 shows a job consist¬ 
ing of one source program to be compiled 
and executed. 



The program, PROB1, is compiled 
(assuming a 16K machine) producing an 
object deck, listing of the source program, 
and a storage map. If no serious source 
program errors are encountered during com¬ 
pilation, the object program is loaded from 
the GO tape (a temporary storage tape 
containing the object program (s) produced 
by a GO or GOGO specification) into storage 
and executed. The data cards remain in the 
card reader until read in by the object 
program. 


Example 2: Figure 12 shows a job consist¬ 
ing of one source main program and two 
source subprograms to be compiled and exe¬ 
cuted . 

The program, PR0B1, is compiled 
(assuming a 16K machine) , producing a list¬ 
ing of the source program and a storage 
map. Execution of PR0B1 does not commence 
until the remaining subprograms (SUB1 and 
SUB2) in the multiple job are compiled. 
Note that the second /FTC statement over¬ 
rides the first /FTC statement preceding 
PR0B1 such that neither a deck, list, nor 
storage map are produced when SUB1 and SUB2 
are compiled. 

Even if there are serious source program 
errors encountered when compiling the job, 
all three programs (PROB1, SUB1, and SUB2) 
are loaded from the GO tape into storage 
and control is passed to the main program 
PROB1. The data cards remain in the card 
reader until read by one or more of the 
object programs. 



Figure 12. Example 2 


Example 3: Figure 13 shows a job consist¬ 
ing of one source main program and one 
source subprogram to be compiled and exe¬ 
cuted according to changes made in the 
device assignment table. 



Figure 13. Example 3 
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The DAT is modified by the /SET state¬ 
ment following the /JOB statement PR0B1 is 
then compiled (assuming a 16K machine) and 
placed on the GO tape. The next control 
statement (/SET) is read in again, modify¬ 
ing the DAT as shown; thereafter, subpro¬ 
gram SUB1 is compiled and placed on the GO 
tape. 

Both object programs are loaded into 
storage and control is passed to PR0B1. 
Use of data set reference number 5 in PR0B1 
refers to a 2400 series tape device whose 
actual address is 280; use of data set 
reference number 6 in subprogram SUB1 
refers to a 2400 series tape with actual 
address of 281. The /SET statements in 
Example 3 result only in a temporary change 
to the DAT. 


Example 5: Figure 15 shows a job consist¬ 
ing of one source main program and one 
source subprogram to be compiled and exe¬ 
cuted using no control statements. 



Figure 15. Example 5 


Example 4: Figure 14 shows a job consist¬ 
ing of one source main program, one object 
subprogram, and one source subprogram to be 
compiled and executed. 



Figure 14. Example 4 


The source program PROB1 is compiled 
producing a source program listing and 
storage map and placed on the GO tape. 

The source subprogram PROB2 is then 
compiled producing a source program listing 
and storage map and placed on the GO tape. 
The object subprogram, SUB1, is read in and 
immediately placed on the GO tape. Note 
that it is not necessary for SUB1 to be 
preceded by any control statements. All 
three object programs are loaded into stor¬ 
age and control is transferred to PROB1. 


Since there are no control statements, 
the assumed name of the main program is 
MAIN and for the subprogram SUB1; that is, 
the name specified in the header source 
statement of the subprogram. 

Each program is compiled, placed on the 
GO tape if no serious errors are encoun¬ 
tered, and loaded into storage. Control is 
transferred to MAIN. Note that data cards 
should not be placed behind SUB1 when the 
source programs are read in since a 
MULTIPLE job (standard option) is assumed 
and, in the absence of a /DATA statement, 
cards are read until an end-of-file condi¬ 
tion is sensed. Thus, if there is input 
data, it should be read in from a device 
other than that used for reading in the 
source programs (e.g., a tape device or 
another card reader) . 



Figure 16. Example 6 


Compilation and Execution 
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The object main program, MAIN, along 
with the object subprograms, SUB1 and SUB2, 
are read from a card reader into storage. 
The absolute addresses (in hexadecimal) of 
each object program's position in storage 
are printed. Control is then transferred 
to MAIN. 

Example 7: The following is a job consist¬ 
ing of two control cards with a source 
program on a tape whose address is 181. 

/JOB GOGO 

/SET 1 = 181 (2400LC) 

The /JOB and /SET statements are read in 
changing the DAT as shown. Because data 
set reference number 1 now refers to tape, 
the compiler reads in the source program 
from the tape, compiles it, and places the 
object program on the GO tape. The object 
program is loaded from the GO tape into 
storage and executed. 


DIAGNOSTIC MESSAGES (SOURCE PROGRAM) 


During compilation of a FORTRAN job, 
diagnostic messages are produced when cer¬ 
tain statements do not conform to FORTRAN 
language specifications. These messages 
are produced whether or not the LIST option 
is specified. 

For each such incorrect FORTRAN state- 


ment encountered, one or more messages 
produ ced showing: 

are 

1 . 

The internal statement number of 
statement in error. 

the 

2 . 

The message number. 


3. 

The message itself describing the 
of error. 

type 


Appendix A contains a complete listing 
of all source program diagnostic messages 
produced, along with a description of each 
message. 


DIAGNOSTIC MESSAGES (OBJECT PROGRAM) 


During execution of an object program, 
diagnostic error codes are printed (listed) 
on the device associated with data set 
reference number 3 (usually a printer) when 
certain errors are encountered. These 
error codes are produced irrespective of 
whether the LIST or NOLIST option is speci¬ 
fied. 


There are three types of object-time 
errors that may be detected by the FORTRAN 
system: 

1. Errors found by the Relocating Loader 
during loading of object programs. 

2. Errors found by the IBCOM routine when 
handling I/O operations for the object 
program. 

3. Errors incurred when incorrect argu¬ 
ments are used for certain library 
subprograms. 

For each object-time error encountered, 
an error code number is printed. Appendix 
B contains a complete listing of all object 
program diagnostic error codes, along with 
a description of each code. 


PROGRAM SIZE CONSIDERATIONS 


This section discusses the factors 
affecting source program size (number of 
source statements) , object program size, 
amount of main storage available, and speed 
of compilation. 


SOURCE PROGRAM SIZE 


The maximum source program size depends 
upon: (1) the size of main storage avail¬ 
able, (2) the number of statement numbers 
and symbols, such as subprogram, variable, 
and array names used in the source pro¬ 
grams; and (3) the size of the dictionary 
reserved by the compiler. * (See the publi¬ 
cation, IBM System/360 Basic Programming 
Support FORTRAN IV, Program Logic Manual , 
Form C28-6584 for a detailed description of 
the dictionary.) 

For a given main storage size, there is 
a corresponding dictionary size automat¬ 
ically reserved by the compiler. The com¬ 
piler places information, called dictionary 
entries, about all statement numbers and 
symbols in the dictionary. If the number 
of required dictionary entries for a source 
program exceeds the space reserved for the 
dictionary, the programmer must either 
(1) divide the program into a main program 
and several subprograms, or (2) reduce the 
number and size of symbols and statement 
numbers in the program. 


Figure 17 shows the relationship among 
main storage size (in bytes) , dictionary 
size (in bytes) , and average permissible 
source program size for a compilation 
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Figure 17. Compilation-Time Relationships 


(number of source statements) . The source 
program sizes shown are only an average and 
do not represent the maximum source program 
size permitted for all programs. 


OBJECT PROGRAM SIZE 


The amount of storage reserved for a 
compiled source program (i.e., the object 
program) depends upon: (1) the amount of 
main storage available; (2) the size of the 
FORTRAN System Director; (3) the size of 
the IBCOM routine; and (4) the size of each 
different out-of-line library subprogram 
referred to by the object program. 

The FORTRAN System Director, occupying a 
maximum of 4K bytes of storage, resides in 
main storage during the compilation and 
execution of a program. At object time, 
its primary duty is the handling of all the 
input/output operations and interrupts for 
the object program. 

The IBCOM routine, occupying a maximum 
of 5K bytes, handles all the input/output 
conversions for the object program (in 
conjunction with the FORTRAN System 
Director) and processing program arithmetic 
interruptions (e.g., overflow, underflow) , 
etc. 


At object time, any out-of-line subpro¬ 
grams referred to by the object program are 
read into main storage. The names of all 
IBM supplied subprograms and the size of 
each is given in Appendix C. (In-line 
subprograms referred to by a source program 
become part of the object program and 
therefore are a factor in determining over¬ 
all object program size.) 


Taking these considerations into 
account, the amount of storage available 
for an object program may be determined by 
subtracting from the main storage size, the 
size of the FORTRAN System Director, the 
IBCOM routine, and each different out-of- 
line subprogram referenced. 


Figure 18 shows the relationship among 
main storage size (in bytes) , IBCOM and 
FORTRAN System Director size (in bytes) , 
storage size remaining for object 
program (s) (in bytes) , and average 
permissible source program size for a com¬ 
pilation and execution (number of source 
statements) . 


Note that an object program may be 
executed in a machine size (main storage) 
different from that used for compiling the 
program. 
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Figure 18. Execution-Time Relationships 
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COMPILATION SPEED CONSIDERATIONS 


During a compilation, information about 
the program is passed between various 
phases of the compiler to produce an object 
program. This information may be transmit¬ 
ted to each phase by storing it either in a 
reserved portion of main storage (called a 
buffer area) or on an input/output device 
(e.g., tape) . The amount of information 
transmitted is solely dependent upon the 
size of the source program. In addition, 
the size Qf the buffer area reserved is 
proportional to the amount of main storage 
available. Because this information can be 
accessed faster within main storage than 
from input/output devices, maximum compila¬ 
tion speed will be attained when few or no 
input/output operations occur. 

The number of input/output operations 
can be appreciably reduced by decreasing 
the size of the source program and/or 
increasing the main storage size, thereby 
increasing the buffer area. When the main 
storage size is equal to 16K bytes, the 
buffer size reserved is 100 bytes. 

In addition to the buffer size consider¬ 
ation, compilation time may be reduced by 
limiting the number of output options 
(e.g., DECK, LIST, MAP) in a job. 


M/CHINE CONSIDERATIONS 


This section discusses the various 
machine configurations required by the 
FORTRAN system. 


MINIMUM MACHINE REQUIREMENTS 


The machine configuration needed by a 
particular installation may vary according 
to the type (e.g., compile only) and the 
amount of processing to be performed for a 
certain job. For instance, large jobs may 
require an additional amount of main stor¬ 
age and/or tape devices. However, irre¬ 
spective of the type and size of job 
processing, all installations must have the 
following minimum machine configurations: 

1. An IBM System/360 with 16,384 (16K) 

bytes of storage and the Scientific 
Instruction Set. 

2. An IBM 1442 or 2540 Card Read Punch. 

3. An IBM 1443 or 1403 Printer. 


4. From three to ten IBM 2400 Series 
Magnetic Tape devices, depending on 
the type of job processing performed. 

In addition to the above machine con¬ 
figuration, an IBM 1052 Printer-Keyboard 
may be used. 

The following are the four types of job 
processing permitted by the FORTRAN system 
and the corresponding number of tape units 
required. 

Compile Only (i.e., NOGO option) : Three 
tape devices are required; two for work 
tapes and one for the FORTRAN system tape. 
If a large amount of main storage is 
available, two work tapes are not necessar¬ 
ily needed. The number of work tapes 
required (a maximum of two) depends on the 
amount of information about the program 
that is sequentially passed between each 
phase. If the program is small compared to 
the main storage size, little or no I/O 
operations occur; all the information is 
kept in buffer areas in main storage. 
Therefore, the number of work tapes may be 
reduced. (For a detailed discussion of 
buffer area reservation, see the section, 
"Compilation Speed.") 

Compile and Execute (i.e., GO or GOGO 
options) : Four tape devices are required; 
two for work tapes, one for the FORTRAN 
system tape, and one for the GO tape on 
which each compiled program is placed. 

Execute Only (i.e., /LOAD statement) : Two 
tape devices are required; one for the 
FORTRAN system tape and the other for a 
work tape (used by the loader) . An addi¬ 
tional tape unit may be required depending 
on whether the object programs are loaded 
from tape or cards (see the section, "/LOAD 
Statement) . 

FORTRAN System Tape Edit (i.e., /EDIT 
Statement) : Two tape devices are required; 
one for the FORTRAN system tape, and the 
other for the new system tape generated by 
the edit. Up to eight additional tape 
devices may be required depending on the 
number of new system tapes to be created as 
specified in the /EDIT statement. (See the 
section, "FORTRAN System Maintenance.") 

Figure 19 shows the number of tape 
devices required for each type of job. 


1442 AND 2540 PROGRAMMING CONSIDERATIONS 


This section discusses special program¬ 
ming considerations to be noted when using 
the IBM 1442 and 2540 Card Read Punch 
devices. It describes the manner in which 
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Figure 19. Tape Device Requirements 


the 1442 and 2540 read and punch cards, the 
various data card deck structures permis¬ 
sible for each, and the actual source 
program I/O statements used to read and/or 
punch a card. 


The 1442 Card Read Punch 


The 1442 Card Read Punch has one input 
hopper in which data cards to be read 
and/or blank cards to be punched are 
placed. There are two areas, called sta¬ 
tions, in which 1442 reading and punching 
operations are performed; one is the read 
station, the other a punch station. Every 
input card in the 1442 must pass both 
stations before being placed in the output 


hopper. (See Figure 20.) 

n: i 


I Input | | 

|Hopper | | 

l- T -J | 

I I 

i 

r - 1 - 1 r- 1 I 

| Read |-->| Punch | j 

I Station| | 

L- T -J | 

I I 

r —i—, | 

|Output j j 

[Hopper J | 

Figure 20. 1442 Card Read Punch Flow 

Diagram 


Because every input card passes both 
stations, it is possible to read and punch 
the same card. This is done by following a 
FORTRAN source program READ statement with 
a WRITE statement. 


For example, assume that data set ref¬ 
erence number 5 refers to a 1442. The 
following FORTRAN statements would cause 
the second forty columns of a card to be 
read and the first forty columns of that 
same card to be punched in the specified 
manner: 


10 FORMAT (T41,110, F10.3, 15, F15.6) 

11 FORMAT (4110) 


READ (5,10) I, A, J, B 
WRITE (5,11) K, L, M, N 


Instead of reading and punching the same 
card, it may be desirable to read a data 
card and punch a successive blank card. 
This may be done by following a READ 
statement with a "dummy" READ statement and 
a WRITE statement, in that order. The 
dummy READ statement (1) moves the card 
just read by the previous READ statement 
through the punch station into the output 
hopper and ( 2 ) moves another card from the 
input hopper, through the read station, to 
the punch station. A dummy READ statement 
may be written in two ways: 


| Station| 
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The 2540 Card Read Punch 


. Using a source program READ statement 
with no list, e.g., READ (5,10) • 

2. Following the last format code in a 
FORMAT statement with a slash (/) 
character, e.g-, 10 FORMAT (8110/). 


The following examples illustrate the 
FORTRAN statements that may be used to read 
a data card and punch a successive blank 
card. Note that the statements in Examples 
1 and 2 perform the same function. 


The 2540 Card Read Punch has two input 
hoppers: a read hopper and a punch hopper. 
Associated with the two hoppers are a read 
and a write station, respectively. Unlike 
the 1442, every input card in the 2540 
passes only one of the two stations, 
depending on whether the card is in the 
read or write input hopper. (See 
Figure 21.) 


Example 1 : 


10 FORMAT (120, F20.3, 110, F11.7, E19.6) 

11 FORMAT (4120) 


READ (5,10) I, A, J, B, C 
READ (5,10) 

WRITE (5,11) K, L, M, N 


Example 2 : 


10 FORMAT (120, F20.3, 110, F11.7, E19.6/) 

11 FORMAT (4120) 


Figure 21. 
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Diagram 


Read Punch 


Flow 


READ (5,10) I, A, J, B, C 
WRITE (5,11) K, L, M, N 


A "dummy" READ statement is not needed 
if it is desired only to punch successive 
blank cards. For instance, the following 
example illustrates the FORTRAN statements 
that may be used to punch successive blank 
cards. 


Because every input card in the 2540 
must pass either the read station or the 
punch station (depending on the input hop¬ 
per in which the card is placed) , it is not 
possible to read and punch on the same 
card. All data cards to be read should be 
placed in the read input hopper; all blank 
cards to be punched should be placed in the 
punch input hopper. 


Program Transition From 1442 to 2540 


10 FORMAT (120,F20.3,110,FI 1.7,El 9.6) 

11 FORMAT (4120) 


WRITE (5,10) I,A,J,B,C 
WRITE (5,11) K,L,M, N 


If a system installation replaces a 1442 
with a 2540, neither the I/O statements in 
a user-written program nor the data card 
deck structure for that program need be 
changed. However, it is important to note 
that the output deck structure may differ. 
For example, assume that data set reference 
number 5 refers to a 1442. Then the 
following FORTRAN statements would result 
in a data card being read and a successive 
blank card being punched. 
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A data card being read. 


Example : 


10 FORMAT (4120/) 

11 FORMAT (4120) 


READ (5, 10) II, J1, K1, LI 
WRITE (5,11) 12, J2, K2, L2 


The single output deck is ordered such 
that every input data card (the ones read) 
is followed by an output data card (the 
ones punched) . 

If data set reference number 5 referred 
to a 2540 in the preceding example, the 
statements would result in: 


1. 

2. A successive blank card (in the read 
input hopper) being passed to the 
output hopper. 

3. A blank card (in the punch hopper) 
being punched. 


There are two output decks. The deck in 
the read output hopper is ordered such that 
every input data card (i.e., the ones read) 
is followed by a blank card (i.e., the ones 
passed by the "dummy" READ) . The deck in 
the write output hopper contains all the 
cards punched. 

Note that the 2540, unlike the 1442, 
does not have the ability to read and punch 
on the same card. In this instance, the 
user must change his program. 
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FORTRAN SYSTEM MAINTENANCE 


The Basic Programming Support FORTRAN 
System may be tailored to fit the program¬ 
ming requirements of a particular installa¬ 
tion. This section is directed to the 
system programmers responsible for expand¬ 
ing and maintaining (editing) the system. 
Before attempting any modification of the 
system, the user should have a thorough 
knowledge of the internal logic of the 
FORTRAN system. 

A certain segment of the FORTRAN system, 
namely the editor, makes it possible for 
the user to revise, through the use of 
control statements, one or more portions of 
the system tape by adding, replacing, or 
deleting features to meet the requirements 
of his installation. 

The format of the FORTRAN system tape 
supplied by IBM, including the order in 
which the library subprograms are supplied, 
and the control statements used to effect a 
change to the system are described in the 
following text. 


FORTRAN SYSTEM TAPE 


The FORTRAN system tape comprises the 
Initial Program Load, the FORTRAN System 
Director, the Control Card Routine, seven 


phases of the compiler (Phases 10, 12, 14, 
15, 20, 25, and 30) , the Relocating Loader, 
the library, IBCOM, and the Editor. Each 
segment, except the library, consists of 
one record. The format of the library is 
in 80-character card images. Figure 22 
shows the layout of the system tape as 
supplied by IBM. 


To reduce access time when using library 
subprograms, they are placed on the system 
tape so that: 


1. Subprograms that refer to other sub¬ 
programs in the library for their 
calculation come first. 


2. Subprograms that make no reference to 
other subprograms in the library come 
next. 


The user should arrange any additional 
library routines according to the same 
principle. Figure 28 (see the section, 
"/AFTER Control Statement") shows the for¬ 
mat of the library as supplied by IBM. 
Figure 23 shows examples of proper ordering 
when adding routines to the library. The 
arrow in these examples means that one 
routine refers to another. 


r T T-T-T-T-T-T-T-1 

| Initial |FORTRAN |Control |Phase 10|Phase 12jPhase 14|Phase 15jPhase 20|Phase 251 
| Program |System (Card j j j j j j i 
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Figure 22. FORTRAN System Tape Layout 
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Figure 23. Ordering User-Written Subprograms in the Library 


EDITING THE FORTRAN SYSTEM 


The system maintenance control state¬ 
ments necessary for editing the FORTRAN 
system tape specify the following informa¬ 
tion: 


1. The number of new system tapes to be 
generated. 

2. The correspondence between data set 

reference numbers and actual 

input/output (I/O) device addresses. 

3. The library subprograms to be added or 
deleted from the FORTRAN system tape. 

4. A duplication of the present FORTRAN 
system tape. 

5. The segment or segments of the compil¬ 
er that are to be modified. 


Eight control statements (/EDIT, /SET, 
12-2-9 REP, 12-2-9 EDR, /AFTER, /DELETE, 
/*, and 12-2-9 END) are used to specify the 
preceding information. With the exception 
of the /* and 12-2-9 END control state¬ 
ments, all have parameter lists. Each 
control statement, along with its param¬ 
eters, is described in the following text. 
Examples of control statements are in card 
format showing the column numbers in which 
the parameter list (if any) must begin. 


/EDIT CONTROL STATEMENT 


The /EDIT control statement must be the 
first statement of a system edit job. The 
/EDIT statement has three purposes: 
( 1 ) effectively, causes the editor to be 
read from the system tape and control to be 
passed to it, ( 2 ) allows the user to 
specify the size in bytes of main storage 
that becomes the standard option on the new 
system tape (s) , and (3) specifies the data 
set reference number of each new system 
tape to be created. 

Associated with the /EDIT control state¬ 
ment is a parameter list composed of two 
classes: 

1. The size of main storage designated by 
xK where x is in the range, 16<x<64, 
and K represents 1024 bytes. 

2. The new system tapes designated by 

n 2 , n 3 ,... where each n represents a 

data set reference number with which 
each new system tape (s) is associated. 


Main Storage Size (xK) 


The parameter xK, where x is in the 
range, 16<x<64, specifies the size in bytes 
of main storage. (K represents 1024 
bytes.) The parameter must start in 
column 10 . 
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Embedded blanks are not permitted within 
the xK parameter. If no main storage size 
is specified, the standard option is what¬ 
ever main storage size is specified in a 
previous /FTC control statement within the 
same job. (See the section, "SIZE=x* 
Option.") If no /FTC statement was used 
prior to the /EDIT statement, the main 
storage size assumed is dependent on the 
specification in the current system. 


New System Tapes (n 1f n 2 , n 3 ,...) 


The parameter list n fl , n 2 , n 3 ,..., where 
each n is a data set reference number, 
specifies the data set reference number of 
each new system tape created. Nine new 
system tapes can be generated in one job. 
The parameter list must start in column 15. 

Embedded blanks are not permitted within 
the n t , n 2 , n 3 , ... parameter list. At 
least one n must be specified because at 
least one new system tape is created for 
every edit process. Each new system tape 
must be generated with a density of 800 
characters per inch. Otherwise, it cannot 
be properly loaded. 


Format of /EDIT Statement 


Figure 24 shows the format of the /EDIT 
statement. 


r-- t 

|Column 1 Column 10 Column 15 

|f 1 ( f J 

|/EDIT {xK} {n i# n 2 ,n 3# ...| J 

Figure 24. Format of /EDIT Statement 


The following are considerations in 
using the /EDIT statement: 

1. /EDIT must start in column 1. 

2. Each data set reference number (i.e., 

n i , n 2 , n 3 ,...) must be separated 

from the next only by a comma. The 
first blank encountered after column 
15 results in whatever follows being 
regarded as comments. This comments 
field may be used for any purpose. 

Examples : 

/EDIT 16K 11,12,13 EDIT1 

/EDIT 32K 14 UPDATE1 


3. The main storage size specified by x K 
applies to all source programs that 
succeed the edit program, unless over¬ 
ridden by a /FTC control statement 
appearing prior to those source pro¬ 
grams. 

4. Only one /EDIT statement should be 
used per job. 


/SET CONTROL STATEMENT 


The /SET control statement, when used in 
an edit job of the system tape, has effec¬ 
tively the same function as when used 
solely in a compilation and execution job. 
In both cases it (1) specifies the number 
of print positions per line available on a 
particular printer and (2) changes the 
correspondence between data set reference 
numbers used in a program and the actual 
input/output device to which they refer. 

However, when the /SET statement appears 
after a /EDIT statement, the /SET control 
statement causes (1) a permanent change to 
the LINE=xxx standard option and (2) a 
permanent change to the Device Assignment 
Table (DAT) on the new system generated. 
All future jobs processed under control of 
the new FORTRAN system are subject to its 
specifications. 

The parameters associated with the edit- 
job /SET statement (i.e., LINE=xxx and the 
Device Assignment Option) are the same as 
those used in the /SET statement for 
compilation and execution. The use of the 
/SET statement is fully described in the 
section, "Compilation and Execution." How¬ 
ever, there are several additional consid¬ 
erations in properly using the /SET state¬ 
ment during an edit: 

1. The /SET statement must be preceded 
(though not necessarily immediately) 

by an /EDIT control statement. 

2. The old system tape used to generate 
the new system tape (s) remains 
unchanged at the conclusion of the 
edit job. 

3. The standard option for the LINE=xxx 
option on the new system tape (s) is 
dependent upon the specification made 
in generating the new tapes. For 
example, the statements: 

/EDIT 16K 12 

/SET LINE=132 
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would result in the standard option 
for LINE to be changed from LINE=120 
(the specification in the FORTRAN sys¬ 
tem tape supplied by IBM) to LINE=132 
on the new system tape. All future 
jobs processed under control of the 
new FORTRAN system are subject to the 
specification LINE=132 unless tempo¬ 
rarily overridden by a /SET statement 
within a particular job. 

4. When a /SET statement appears before 
an /EDIT statement, the DAT is tempo¬ 
rarily changed for the edit processing 
only. The new system tape generated 
by the edit is not affected by that 
/SET statement. For example: 

/SET 0=2 80 (2400LT) 

/EDIT 16K 12 


The /SET statement would cause the DAT 
to be changed such that data set 
reference number 0 (which refers to 
the system tape) is associated with a 
2400 Series tape device whose address 
is 280. This association holds only 
for the edit job. That is, the edit 
job edits the system tape associated 
with a data set reference number 0 (in 
this case, the tape at location 2 8 0) . 
The new system tape is associated with 
data set reference number 12. Consid¬ 
er as another example the statement: 

/EDIT 16K 12 


The edit job edits the system tape 
associated with data set reference 
number 0 (in this case, the tape whose 
location is specified in the DAT of 
the system tape to be edited) . The 
new system tape is associated with 
data set reference number 12. 


12-2-9 REP CONTROL STATEMENT 


The 12-2-9 REP control statement is used 
to replace a specified segment of the 
FORTRAN system with object code. 

For every different segment modification 
desired, a 12-2-9 REP control statement is 
required. In addition, each modification 
of a different segment must be terminated 
by a 12-2-9 END statement. For example, to 
modify portions of both Phase 10 and Phase 
20, two 12-2-9 END control statements are 


required; one is used immediately following 
the editing statements for Phase 10, the 
other, following the editing statements for 
Phase 20. (See the section, "END Control 
Statement.") 

Associated with the 12-2-9 REP control 
statement is a parameter list composed of 
three classes: 

1. The address of the first byte in a 
segment where replacement of object 
code begins. 

2. The name of a particular segment, 
designated by an abbreviated name, in 
which replacement of object code 
occurs. 

3. The actual object code (in hexadecimal 
numbers) that replaces the existing 
code. 


First-Byte Address 


The address of the first byte in a 
segment where replacement of object code 
begins is specified starting in column 6 of 
the 12-2-9 REP statement. It is designated 
by six hexadecimal characters representing 
a 24-bit address. This address must be on 
a half-word boundary. If the address is 
not specified, it is assumed that the 
entire specified segment is to be replaced 
by object code. (See the section, "Object 
Code Replacement.") 

Embedded blanks are not permitted within 
the address. 


Segment Naming 


Any segment shown in Figure 25 in the 
FORTRAN system may be modified by referring 
to its abbreviated name. This abbreviated 
name, along with the preceding slash, must 
be specified starting in column 13. Note 
that neither the IBCOM routine, the editor, 
nor the system library may be modified by a 
12-2-9 REP statement. Modification of 
those segments may be effected by other 
control statements. (For modifying IBCOM 
or the editor see the section, "12-2-9 EDR 
Control Statement"; for the library, see, 
"/DELETE Control Statement," and "/AFTER 
Control Statement.") 

Embedded blanks are not permitted within 
any of the segment names. 


30 



in 


, T - 

| Segment Name (Abbreviated Name j 

IInitial Program Load |/IPL 
|FORTRAN System Directorj/FSD 
|Control Card Routine |/CTL 
|Phase 10 |/P10 

|Phase 12 |/P12 

|Phase 14 |/P14 

jPhase 15 |/P15 

jPhase 20 |/P20 

(Phase 25 |/P25 

jPhase 30 |/P30 

(Relocating Loader j/LDR 

1 - ± -j 

Figure 25, Segment Name Abbreviations 


Object Code Replacement 


The object code (in hexadecimal 
numbers) , which replaces the designated 
portion of a segment, may be specified 
either in the 12-2-9 REP statement itself 
or, if the space on the card is insuffi¬ 
cient, in additional 12-2-9 REP statements. 
The object code is placed starting in 
column 21 and is written as two byte 
hexadecimal numbers, each two • bytes sepa¬ 
rated by a comma. For example, the hexa¬ 
decimal coding F024157AC035 should be 
written starting in column 21 as 
F024,157A,C035. Embedded blanks are not 
permitted within the object coding. 

If an entire segment (e.g.. Phase 10) is 
to be replaced, the 12-2-9 REP statement 
may be followed by an object deck produced 
from a user's source program compilation. 
The only parameter in the 12-2-9 REP state¬ 
ment should be the segment name. For 
example, the statement: 

REP /P10 

followed by an object deck would cause all 
of Phase 10 to be replaced by the object 
deck following the 12-2-9 REP statement. 


Format of 12-2-9 REP Control Statement 


Figure 26 shows the format of the 12-2-9 
REP statement. 


The following are considerations 
using the 12-2-9 REP statement: 

1. 12-2-9 REP must be placed starting in 
column 1. 

2. The first blank encountered in or 
after column 21 results in whatever 
follows being regarded as comments. 

3. As many 12-2-9 REP statements as need¬ 
ed may be used to modify a segment. 
However, the last 12-2-9 REP statement 
used in modifying a particular segment 
must be followed by a 12-2-9 END 
control statement. 

Example : (The 12-2-9 punch is not shown in 
examples.) 


REP 


002A02 

/P10 

F01A,235A,B302 

REP 


002A46 

/P10 

F20B,9E03 

END 

END 

OF PHASE 

10 EDIT 

PROCESS 

REP 


001B04 

/P20 

2113,57EA 

END 

END 

OF PHASE 

20 EDIT 

PROCESS 


Explanation: The first 12-2-9 REP state¬ 
ment causes the specified code to replace 
existing code in Phase 10 from location 
002A02 through location 002A07. The next 
12-2-9 REP statement causes the specified 
code to replace the code from location 
002A46 through location 002A49. The 12-2-9 
END statement signals the termination of 
editing in Phase 10. The next 12-2-9 REP 
statement then causes the existing code in 
Phase 20 from location 001B04 through 
001B07 to be replaced by 211357EA. The 
12-2-9 END statement signals the termina¬ 
tion of editing in Phase 20. 


12-2-9 EDR CONTROL STATEMENT 


The 12-2-9 EDR control statement is 
equivalent to the 12-2-9 REP control state¬ 
ment in that it is used to replace a 
specified segment of the FORTRAN system 
with object code. However, the 12-2-9 EDR 
control statement may be used to modify 
only the IBCOM routine or the editor. 


j Column 1 

Ua 

| 2 REP 

I 9 


Column 6 

t 

|address J 


Column 13 

t 

segment name 


Column 21 

t 


{object coding } 


Figure 26. Format of 12-2-9 REP Control Statement 
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When modification to IBCOM or the editor 
is specified by one or more 12-2-9 EDR 
control statements, those 12-2-9 EDR con¬ 
trol statements must be followed by a 
12-2-9 END control statement. Because the 
editor is at the end of the FORTRAN system 
tape, it is the last segment that can be 
modified; therefore, the 12-2-9 END control 
statement must be followed by a /* con¬ 
trol statement. (See the sections, "/* 
(Asterisk) Control Statement" and "12-2-9 

END Control Statement.") 

Associated with the 12-2-9 EDR control 
statement is a parameter list composed of 
three classes: 

1. The address of the first byte in IBCOM 
or the editor where replacement of 
object code begins. 

2. The name of a particular segment, 

designated by an abbreviated name, in 
which replacement of object code 

occurs. 

3. The actual object code (in hexadecimal 

numbers) that replaces the existing 

code. 


First-Byte Address 

The address of the first byte in a 
segment where replacement of object code 
begins is specified starting in column 6 of 
the 12-2-9 EDR statement. It is designated 
by six hexadecimal characters representing 
a 24-bit address. This address must be on 
a half-word boundary. If the address is 
not specified, it is assumed that the 
entire specified segment is to be replaced 
by object code. (See the section, "Object 
Code Replacement.") 

Embedded blanks are not permitted within 
the address. 


Segment Naming 

Either the IBCOM routine or the editor 
in the FORTRAN system may be modified by 
referring to the abbreviated segment names: 
/IBC and /EDR, respectively. These 
abbreviated names, along with the preceding 
slash, must be specified starting in column 


13. (To modify anything else, except the 
library subprograms, the 12-2-9 REP control 
statement is used. To modify the library, 
/AFTER and /DELETE control statements are 
used. (See the sections, "12-2-9 REP 
Control Statement," "/AFTER Control State¬ 
ment," and "/DELETE Control Statement.") 


Object Code Replacement 


The object code (in hexadecimal 
numbers) , which replaces the designated 
portion of IBCOM or the editor, may be 
specified either in the 12—2—9 EDR state¬ 
ment itself or, if the space on the card is 
insufficient, in additional 12-2-9 EDR 
statements. The object code is placed 
starting in column 21 and is written as 
two byte hexadecimal numbers, each two 
bytes separated by a comma. For example, 
the hexadecimal coding F024157AC035 should 
be written starting in column 21 as 
F024,157A,C035. Embedded blanks are not 
permitted within the object coding. 


If the entire IBCOM routine and editor 
are to be replaced, the 12-2-9 EDR state¬ 
ment may be followed by an object deck 
produced from a user's source program com¬ 
pilation. The only parameter in the 12-2-9 
EDR statement should be the abbreviated 
segment name /EDR or /IBC. For example, 
the statement: 


EDR /EDR 


followed by an object deck would cause the 
entire editor to be replaced by the object 
deck following the 12-2-9 EDR statement. 
The statement: 


EDR /IBC 


followed by an object deck would cause the 
entire IBCOM routine to be replaced by the 
object deck following the 12-2-9 EDR state¬ 
ment. 


Format of 12-2-9 EDR Statement 


Figure 27 shows the format of the 12-2-9 
EDR s taterne nt. 
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|Column 1 

I ♦ 

| ’IEDR 

I 9 

L_ 

Figure 27. 


Column 6 

t 

|address J 


Format of 12-2-9 


Column 13 

t 

segment name 

EDR Statement 


Column 21 

t 

{ object coding} 


j 


The following are considerations in 
using the EDR statement: 

1- 12-2-9 EDR must start in column 1. 

2. The first blank encountered in or 
after column 21 results in whatever 
follows being regarded as comments. 

3. As many 12-2-9 EDR statements as need¬ 
ed may be used to modify a segment. 
However, the last 12-2-9 EDR statement 
used in modifying a particular segment 
must be followed by a 12-2-9 END 
statement. 

Example: (The 12-2-9 punch is not shown in 

examples.) 


EDR 

002A02 

/EDR 

F01A,235A,B302 

EDR 

002A46 

/EDR 

F20B,9E03 

EDR 

002B04 

/EDR 

2113,57EA 

END 

END OF 

EDITOR 

EDIT PROCESS 


Explanation: The first 12-2-9 EDR state¬ 
ment causes the specified code to replace 
existing code in the editor from location 
002A02 through location 002A07. The next 
12-2-9 EDR statement causes the specified 
code to replace the code from location 
002A46 through location 002A49. The next 
12-2-9 EDR statement then causes the exist¬ 
ing code in the editor from location 002B04 
through 002B07 to be replaced by 211357EA. 
The 12-2-9 END statement signals the termi¬ 
nation of editing for the editor. 


/AFTER CONTROL STATEMENT 


The /AFTER control statement is used to 
insert user-written subprograms in the sys¬ 
tem library. These user-written subpro¬ 
grams must be in object deck format (i.e. , 
object coding) produced from either a Basic 
Programming Support assembler source pro¬ 
gram assembly or a FORTRAN source program 
compilation. 


Associated with the /AFTER control 
statement are two parameter classes: 


1. Library subprogram name after which 
the user-written subprogram (s) is 
inserted. 

2 . User-written subprogram names that are 
to be incorporated in the system 
library. 


Library Subprogram Name 


Associated with every library subprogram 
is a subprogram name and one or more entry 
names representing particular entry points 
in the subprogram. The entry points desig¬ 
nate a particular portion of the subprogram 
that performs a certain function. Only 
entry points should be referred to in a 
FORTRAN source program. For example, asso¬ 
ciated with the library subprogram named 
SIN are two entry points: SIN and COS. 
Both of these entry points may be used in a 
FORTRAN source program to compute the sine 
and cosine of a given argument, respective¬ 
ly. However, only subprogram names may be 
used in an /AFTER statement to specify the 
library subprogram after which a user- 
written subprogram (s) is to be inserted. 

In some instances, the subprogram name 
and entry point for a particular library 
subprogram are identical. For example, the 
name of the library subprogram AINT 
represents not only the subprogram name but 
also the entry point for that subprogram. 
The name AINT may be used in a source 
program to truncate the fractional portion 
of an argument. This name may also be used 
in a /AFTER statement to designate the 
subprogram after which a specified user- 
written subprogram (s) is inserted. 
Figure 28 shows the complete list of 
library subprogram names and associated 
entry points (shown indented) supplied by 
IBM, in the order in which they appear on 
the FORTRAN system tape. 

The library subprogram name must be 
placed starting in column 10. Embedded 
blanks within the name are not permitted. 
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Figure 2 8. Library Subprograms Supplied by 
IBM 
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Figure 29. 
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Format of /AFTER Statement 


The following are considerations in 
using the /AFTER statement: 


1. /AFTER must start in column 1. 


2. The first blank encountered in or 
after column 17 results in whatever 
follows being regarded as comments. 

3. The object subprogram deck that is to 
be inserted after a given library 
subprogram must be placed immediately 
following the /AFTER statement to 
which it corresponds. In addition, if 
a /AFTER statement specifies that sev¬ 
eral object subprograms are to be 
inserted after a given library subpro¬ 
gram, the object decks should appear 
in the same order in which their names 
are specified in the /AFTER statement. 


User-Written Subprogram Names 


The user-written subprogram names are 
the names of the subprograms in object deck 
format to be inserted in the library. The 
name of the subprogram is the name speci¬ 
fied in the /FTC statement (if any) used in 
compiling the subprogram. If no /FTC 
statement was used, the name of the subpro¬ 
gram is the name specified in the header 
source statement (e.g., for the statement 
SUBROUTINE HOLD (X,Y) , HOLD is considered 
the subprogram name). 



Explanation : The user-written subpro¬ 
grams ALPHA and BETA are inserted in 
the system library after the subpro¬ 
gram COS. 


The user-written subprogram names are 
placed starting in column 17, each sepa¬ 
rated by a comma. Embedded blanks are not 
permitted within the list of names. 


Format of /AFTER Statement 

Figure 29 shows the format of the /AFTER 
statement- 


4. As many /AFTER statements as needed 
may be used to insert subprograms in 
the library. However, the /AFTER 
statements should be arranged so that 
the library subprogram names are in 
the same order that the subprograms 
exist in the library. 


Example : Assume that the subprogram 
EXP is preceded by COS in the library 
and that ALPHA and BETA are user- 
written subprograms. 
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|Column 1 

It 

|/DELETE 

L_ 

Figure 30, 


Column 10 

f | 

sub,,sub 2 ,-,sub n j 

- j 

Format of /DELETE Statement 


The following are considerations 
using the /DELETE statements: 


m 


1• /DELETE must start in column 1. 


Explanation : The preceding statements 
cause the user-written subprogram 
ALPHA (i.e. , the object deck) to be 
inserted after the COS subprogram in 
the system library. The object deck 
of BETA is then inserted after the EXP 
subprogram. The /AFTER statements 
(along with the associated object 
decks) are ordered as shown because 
subprogram COS precedes EXP in the 
system library. 

5. In an edit job, all /AFTER statements 
must precede any 12-2-9 EDR statements 
and follow any 12-2-9 REP statements. 


/DELETE CONTROL STATEMENT 


2. The first blank encountered in or 
after column 10 results in whatever 
follows being regarded as comments. 


3. /DELETE statements may be interspersed 
with /AFTER control statements. How¬ 
ever, the /DELETE and /AFTER state¬ 
ments should be ordered so that the 
library subprograms to which they 
refer correspond to the sequence of 
the subprograms in the library. 


Example : Assume the subprograms COS, 
EXP, and MAXI are library subprograms 
in that order and ALPHA and BETA are 
user-written subprograms. 


The /DELETE control statement is used to 
delete any specified library subprogram (s) 
from the system library. 

Associated with the /DELETE control 
statement is a single parameter class con¬ 
sisting of the names of the library subpro¬ 
grams to be deleted. 


Names of Subprograms Deleted 


The names of the subprograms to be 
deleted must be placed starting in column 
10, each separated by a comma. A complete 
list of all library subprogram names sup¬ 
plied by IBM along with the order in which 
they appear on the FORTRAN system tape is 
shown in Figure 28. 


Format of /DELETE Statement 


Figure 30 shows the format of the 
/DELETE statement. 



f* x Pf ^nation : The COS subprogram is 
deleted from the library. Because the 
SIN function is part of the subprogram 
COS, it also is deleted. The user- 
written subprograms ALPHA and BETA are 
inserted after the EXP subprogram and 
then MAXI is deleted. 


4. All /DELETE statements must appear 
after any 12-2-9 REP statements, out 
must precede any 12-2-9 EDR 
statements. 
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/* (ASTERISK) CONTROL STATEMENT 


SAMPLE EDIT JOBS 


The /* control statement is the last 
statement in an edit job. It causes any 
remaining segments of the old system tape 
-that were not edited to be written on the 
new system tape (s) . 

There are no parameters associated with 
the /* control statement. If a /EDIT and 
/* control statements are the only state¬ 
ments in an edit job, the old system tape 
is merely copied (written) on the new 
system tape (s) . 


The /* must appear starting in column 1. 
The first blank encountered after column 2 
results in whatever follows being regarded 
as comments. 


Example : 

Column 1 

t 

/* THIS IS END OF EDIT JOB 


12-2-9 END CONTROL STATEMENT 


The 12-2-9 END control statement must be 
used to terminate an editing process for 
each segment specified in a 12-2-9 REP or 
12-2-9 EDR control statement unless the 
control statements are followed by an 
object deck (s) • In this case, the 12-2-9 
END statement is not required since it is 
already a part of the object deck (s) . The 
12-2-9 END is placed starting in column 1. 
The first blank encountered after column 4 
results in whatever follows being regarded 
as comments. Figure 31 shows an example of 
edit job using a 12-2-9 END control state¬ 
ment. 


/EDIT 

16K 

8 


REP 

002A02 

/P10 

C23A 

END 

THIS IS 

END OF 

EDIT FOR PHASE 10 

i EDR 

002A46 

/EDR 

F20B,9E03 

1 

| END 

I/* 

THIS IS 
REST OF 

END OF EDIT FOR THE EDITOR 
TAPE COPIED ON NEW SYSTEM 


Figure 31. Sample Edit Job 


Example 1: Figure 32 shows a card deck 
comprising a sample edit job. 



Figure 32. Sample Edit Job 1 


The following is a step-by-step descrip¬ 
tion of sample job 1 as it is processed: 


1. After the machine operator presses the 
Load Key , the initial program load, 
FORTRAN system director, and control 
card routine are read into main stor¬ 
age. The first statement (i.e., the 
/EDIT statement) is read causing the 
editor to be read in from the system 
tape and main storage size to be set 
to 32K. Data set reference number 10 
is specified as the tape on which the 
new system is generated. The initial 
program load is then written on the 
new system tape and the old system 
tape is rewound. 


2. The next control statement (i.e., the 

/DELETE statement) is read in. 

Because it refers to the system 

library, all segments of the system 
prior to the library (i.e., FORTRAN 
system director, phases 10 through 30, 
and the relocating loader) are written 
on the new system tape followed by a 
tape mark. 

3. The subprogram ALOG is then deleted 
from the system library. 


4. The next control statement (i.e., the 
/AFTER statement) is read in. The 
object deck of the subprogram PRIME is 
inserted after subprogram IFIX. 
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5. The next control statement (i.e., the 
/* statement) is read in causing the 
remaining portion of the old system 
tape to be copied onto the new system 
tape. Both tapes are then rewound. 


Example 2: Figure 33 shows a card deck 
comprising a sample edit job. 



The following is a step-by-step descrip¬ 
tion of sample job 2 as it is processed: 

1. After the machine operator presses the 
Load Key , the initial program load, 
FORTRAN system director, and control 
card routine are read into main stor¬ 
age. The first statement (i.e., the 
/EDIT statement) is read causing the 
editor to be read in from the system 
tape and main storage size to be set 
to 16K. Data set reference number 9 
is specified as the tape on which the 
new system is generated. The initial 
program load is then written on the 
new system tape and the old system 
tape is rewound. 

2. The 12-2-9 REP statement causes the 
object code 47F001C2 to replace the 
existing code in the FORTRAN system 
director from location 0001D8 through 
001 DB. 


3. The 12-2-9 END statement specifies 
that editing for the FORTRAN system 
director is complete. The modified 
FORTRAN system director is then writ¬ 
ten on the new system tape. 


4. The next 12-2-9 REP statement is read 
in. Because it specifies that all of 
phase 10 is to be replaced by an 
object deck following the card, the 
control card routine (which precedes 
phase 10) is written on the new system 
tape. Then phase 10 is read from the 
old system tape into main storage and 
completely replaced by the object deck 
following the 12-2-9 REP statement. 


5. The last statement in the object 
deck of phase 10 (i.e., the 12-2-9 END 

statement) specifies that editing for 
phase 10 is complete. The new phase 
10 is then written on the new system 
tape. 


6 . The next control statement (i.e., the 
/DELETE statement) is read in. 
Because it refers to the system 
library, all segments of the compiler 
prior to the library (i.e., phases 12, 
14, 15, 20, 25, 30 and the relocating 
loader) are written on the new system 
tape followed by a tape mark. 

7. The subprograms EXP and COS are then 
deleted from the system library. 

8 . The next control statement (i.e., the 
/AFTER statement) is read in. The 
object deck of the subprogram ALPHA is 
inserted after subprogram SQRT. 

9. The next control statement (i.e., the 
12-2-9 EDR statement) is read in. 
Because no more modification of the 
library is to be made, any remaining 
subprograms in the library are written 
on the new system tape and a tape mark 
is written and IBCOM is copied. 

10. The 12-2-9 EDR statement then causes 
the object code 1B77 to replace the 
existing code in the editor from loca¬ 
tions 001328 through 001329. 

11. The 12-2-9 END statement specifies 
that editing for the editor is com¬ 
plete. The modified editor is then 
written on the new system tape fol¬ 
lowed by a tape mark. 

12. The next control statement (i.e., the 
/* statement) is read in causing the 
remaining portion of the old system 
tape to be copied onto the new system 
tape. Both tapes are then rewound. 
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OPERATING INSTRUCTIONS FOR A FORTRAN JOB 


This section describes the messages 
which signal the need for operator inter¬ 
vention and the procedures an operator 
should follow in preparing a FORTRAN job 
for a machine run. 

The only prerequisite for setting up a 
FORTRAN job is a familiarity with 
System/360 operation. 


OPERATOR MESSAGES 


There are only three types of messages 
produced by the FORTRAN system requiring 
operator intervention. They are: 

END OF JOB. 

2. PAUSE xxxxx, where xxxxx is a one to 
five digit number. 

3. Input/Output interruption message: FIS 
xxx, FID xxx, and FIA xxx, where xxx 
is the actual address of an I/O 
device. 

4. Machine check message FMS, displayed 
in hexadecimal as C6D4E2 in the low- 
order portion of the PSW. 


END OF JOB 


An END OF JOB message is printed when 
the job has completed its specified 
processing. For example, if the job is to 
be compiled and executed, the END OF JOB 
message is printed at the conclusion of the 
execution process. 

When the END OF JOB message is printed, 
the operator can prepare the machine for 
the next job. 


PAUSE 


A PAUSE xxxxx message is printed when a 
job being executed encounters a compiled 
PAUSE statement. 

If a PAUSE xxxxx message is printed, the 
operator should compare the number printed 
(i.e., xxxxx) with any operating instruc¬ 
tions supplied by the programmer and per¬ 


form the indicated operations. Upon com¬ 
pleting the instructions, the operator 
should press the Interrupt Key to resume 
execution of the job. 


INPUT/OUTPUT INTERRUPTION MESSAGES 


There are three types of I/O interrup¬ 
tion messages printed when an I/O device, 
except the 1052 Printer-Keyboard, malfunc¬ 
tions : 


1 . 

FIS 

xxx. 

2 . 

FID 

xxx. 

3. 

FIA 

xxx. 


The xxx portion of the message represents 
the actual machine address of the device 
which caused the interruption. 

If the 1052 Printer-Keyboard is not 
functioning properly, printing is termi¬ 
nated. 

Each message is displayed by the 
Instruction Counter (Storage Address) in 
addition to it being printed. The message 
is displayed in an internal representation 
of the external character set depending 
upon the machine conversion used (e.g., 
EBCDIC, BCDIC, ASCII, etc.) . 


FIS xxx 


The FIS xxx message is displayed when 
any one of the following conditions occur: 

1. Channel Data Check. 

2. Channel Control Check. 

3. Interface Control Check. 

4. Equipment Check. 

When the FIS xxx message is displayed, 
the operator should address the tape (or 
card reader) on which SEREP (System Envi¬ 
ronment Recording and Editing Program) was 
placed by using the Load Address Switch and 
press the Load Key . Once SEREP has com¬ 
pleted its processing, the operator must 
re-initialize the FORTRAN system and per¬ 
form the necessary actions to rerun the 
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error-interrupted FORTRAN job. (See the 
section, “Starting instructions.") 


FID xxx 


The FID xxx message is displayed when 
any one of the following conditions occur: 

1. Program Check. 

2. Protection Check. 

3. Command Reject. 

4. Data Converted Check. 

When the FID xxx message is displayed, 
the operator should press the I nterrupt Ke y 
to retry the I/O device that caused the 
malfunction. If this is ineffective, the 
operator should terminate job processing. 


FIA xxx 


The FIA xxx message is displaced when 
any one of the following conditions occur: 

1. Data Check. 

2. Overrun by a tape device. 

3. Bus Out Check. 

4. Intervention required. 

5. Chaining Check by a tape device. 

When the FIA xxx message is displayed, 
the operator should make about five 
attempts to retry the I/O device that 
caused the malfunction by pressing the 
Interrupt Key . If this is ineffective, the 
operator should address the tape (or card 
reader) on which SEREP was placed by using 
the Load Address Switch and press the Load 
Key . Once SEREP has completed its process¬ 
ing, the operator must re-initialize the 
FORTRAN system and perform the necessary 
actions to rerun the error-interrupted 
FORTRAN job. 


MACHINE CHECK MESSAGE 


The hexadecimal characters C6D4E2, rep¬ 
resenting the characters FMS, are displayed 
in the low-order portion of the new Program 
Status Word (PSW) when a machine check is 
encountered. The entire PSW is displayed 
by the Instruction Counter (Storage 
Address) on the console. 


When the characters C6D4E2 are displayed 
in the low-order portion of the PSW, the 
operator should address the tape (or card 
reader) on which SEREP was placed by using 
the Load Address Switch and press the Load 
Key . Once SEREP has completed its process¬ 
ing, the operator must re-initialize the 
FORTRAN system and perform the necessary 
actions to rerun the error-interrupted 
FORTRAN job. (See the section, "Starting 
Instructions.") 


TYPES OF JOBS 

There are four possible types of jobs 
that may be processed under control of the 
FORTRAN system: 


1 . 

Compile 

only. 

2 . 

Compile 

and execute. 

3. 

Execute 

only (load) . 

4. 

Edit. 



The type of job is specified on control 
cards accompanying the job. However, in 
the absence of control cards, the FORTRAN 
system assumes certain information about 
the job and, therefore, the operator need 
not add any control cards. 


STARTING INSTRUCTIONS 


The steps an operator should follow in 
preparing a machine for a FORTRAN job are: 

1. Perform steps la, 1b, 1c, or Id, 

depending on the type of job to be 
processed. 

a. If edit, mount at least one work 
tape on the device designated by 
the programmer. Upon completion 
of the job, this tape is the new 
FORTRAN system tape. Additional 
tapes may have to be mounted on 
tape devices, depending on the 
number of new system tapes to be 
generated by the edit job. When 
the new system tape (s) are gener¬ 
ated, the operator should remove 
the file protection ring from the 
tape (s) . 

b. If compile only, mount two work 

tapes: one on device 181, the 

other on 280. Go to step 2. 
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c. If compile and execute, mount 
three work tapes: one on device 
181, one on 280, and the third on 
281. Device 281 (data set ref¬ 
erence number 12) is the GO tape 
on which the object programs are 
placed. Go to step 2. 

d. If execute only (i.e., load) , 
place the GO tape on device 281 if 
the object programs are to be 
loaded from tape. Go to step 2. 

2. Mount the FORTRAN system tape on any 
unused device that has the same number 
of tracks (7 or 9) as the one that 


created the FORTRAN system tape. Go 
to step 3. 

3. Using the Load Address Switch , address 
the FORTRAN system tape from the 
device upon which it was placed. Go 
to step 4. 

4. Press Load Key . 

The addresses of the actual tape devices 
upon which the operator places the FORTRAN 
system tape, work tapes, and GO tape may 
vary. In such cases, the operator should 
place the tapes on the devices specified by 
the programmer. 


Operating Instructions for a FORTRAN Job 41 



APPENDIX A: SOURCE PROGRAM DIAGNOSTICS 


All diagnostic messages produced are 
printed in a group following the source 
program listing. Figure 34 shows the for¬ 
mat of each message as it is printed under 
the heading of statement number, message 
number, and description. 


When certain error conditions cannot be 
pinpointed to a single source statement, 
the error message contains an internal 
statement number of 0000. 


Each message number (i.e., nnn) printed 
is preceded by the code 1FO031 as shown in 
Figure 34. For example, message number one 
is printed as: 


S.xxxx 1F0031001 INVALID CONTROL CARD 


The object program produced by the com¬ 
pilation is executed depending on: 


1. The severity of the error in a partic¬ 
ular source statement. 

2. The option employed in the /JOB con¬ 
trol statement, which determines the 
type of processing to be performed 

(i.e., GO or GOGO) . 


There are two types of diagnostic mes¬ 
sages: (1) serious-error messages and 
(2) warning messages that an error may 
exist. If the GO option is specified and 
serious errors are encountered in the 
source program, execution of the object 
program is not attempted. If the GO option 
is specified and only warning messages are 
produced, the object program is executed. 
If the GOGO option is specified, object- 
program execution occurs irrespective of 
the type of errors existing in the source 
program. 


A message whose number is immediately 
followed by the character "W" warns the 
user that an error may exist in the source 
statement. A serious error exists in the 
source statement if the message number is 
not followed by the character "W". 


In the following text, each message 
number, the message itself, and its 
associated explanation is given. The 
abbreviated name preceding each explanation 
represents the segment of the FORTRAN sys¬ 
tem that generates the message. 


The abbreviated name for each segment 


is: 



FSD - 

FORTRAN System Director 

CTL - 

Control Card Routine 

P10 - 

Phase 

10 

PI 2 - 

Phase 

12 

Pi 4 - 

Phase 

14 

Pi 5 - 

Phase 

15 

P20 - 

Phase 

20 

IBC - 

IBCOM 

Routine 

EDR - 

Editor 


In some cases, more than one segment 
could generate the same message. For exam¬ 
ple, the message: 

S.xxxx 1FO031001 INVALID CONTROL CARD 

could be generated by either the editor or 
the control card routine; therefore, the 
explanation is preceded by the abbreviated 
names EDR and CTL. 


j STATEMENT NUMBER MESSAGE NUMBER 

S.xxxx 1FO031nnn 

|-- 

| xxxx is the internal statement number 
j nnn is the message number 

| message is the actual message printed 

Figure 34. Format of Diagnostic Messages 


DESCRIPTION 

message 


I 

i 

i 

i 

i 
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001 INVALID CONTROL CARD 

EDR and CTL — Misspelling or punctua¬ 
tion error in the control statement 
makes card not recognizable. 


002 CORE SIZE LESS THAN 16K - JOB ABORTED 

EDR and CTL — The FORTRAN system is 
unable to operate in this environment 
for a compilation and/or execution. The 
main storage size, denoted by x, should 
be in the range, 16K<x<64K. 


003W NO /DATA CARD FOUND 

CTL — A /DATA statement should precede 
object program data cards. If there are 
no data cards, a /DATA statement should 
appear as the last statement of a compi¬ 
lation and/or execution job. Warning is 
given so that the data cards are not 
read in and considered part of the 
source or object program. 


004 END OF DATA SET FOUND ON SYSTEM TAPE 

CTL — This is the result of a machine 
error. The job is terminated. 


014 INVALID CHARACTER 

EDR — Invalid Character in the 12-2-9 
REP control statement. 


015 INVALID PHASE NAME 

EDR --An unknown segment name is speci¬ 
fied on a 12-2-9 REP or 12-2-9 EDR 
control card. The job is terminated. 


016 ILLEGAL END OF DATA SET 

EDR — An end of data set is sensed on 
the system input or system tape before 
editing was completed. The job is ter¬ 
minated. 


017 xxxxxx NOT IN LIBRARY 

EDR -- The name of the subprogram (i.e., 
xxxxxx) specified on a /AFTER or /DELETE 
statement was not found in the system 
library. Check for possible misspelling 
of subprogram name. 


018 xxxxxx OUT OF SEQUENCE 

EDR — The library subprogram names 
(i.e., xxxxxx) specified on /AFTER or 
/DELETE statements must correspond to 
the sequence in which the subprograms 
exist in the library. 


019 TOO MANY DELETE NAMES 

EDR — Not more than 21 subprograms may 
be deleted during a single edit job. 


020 TOO MANY LIBRARY NAMES 

EDR The number of library subprogram 
names permissible in the library depends 
on the main storage size of the machine. 
When main storage size is 16K, approxi¬ 
mately 90 names are permitted. 


029 ARRAY MUST BE DIMENSIONED ON ITS 

FIRST AND ONLY ITS FIRST OCCURRENCE 

P10 — The dimension of an array must be 
given prior to its use in any other 
statement and may never be re-defined. 
This can be done in either a DIMENSION 
statement, an explicit specification 
statement, or a COMMON statement. 


030 ILLEGAL USE OF FUNCTION NAME 

P10 — A function name may not appear in 
an EQUIVALENCE or COMMON statement. 


031 EQUIVALENCE OR COMMON TABLE FULL 

P10 — There are too many variables in 
COMMON and too many EQUIVALENCE rela¬ 
tions specified. Approximately 60 vari¬ 
ables may appear in COMMON and approxi¬ 
mately 60 symbols may appear in EQUIVA¬ 
LENCE relations. 


032 NUMBER TOO BIG 

P10 Integer is larger than maximum 
size allowable (i.e., larger than 
23i-i) . 


033W CARD MISSING 

P10 -- First non-comment statement was a 
continuation line (i.e., a non-zero 
character, other than a blank, was 
encountered in column 6.) The statement 
is processed as if it were the initial 
line of a statement. 
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034 SUBPROGRAM CARD NOT FIRST 

P10 — A header card does not precede 
the subprogram statements to which it is 
associated- The first card in a subpro¬ 
gram (other than a comments card) is not 
a FUNCTION or SUBROUTINE statement. 


035 ARGUMENT MISSING IN FUNCTION DEFINI¬ 
TION 

P10 — Function definition (either in an 
Arithmetic Statement Function or 
FUNCTION header statement) must have at 
least one argument. 


036 ILLEGAL CHARACTER 

P10 — Delimiter is not recognizable. 
It should be either b + - * / = ) #• ( 
or Column 73, where b is a blank. 


037 INVALID STATEMENT OR STATEMENT 
NUMBER 

P10 — An equal sign is missing in an 
Arithmetic Statement Function or an 
arithmetic statement is missing (e.g., 
in an IF Statement or an illegal delimi¬ 
ter precedes the statement) • 


038 SEQUENCE ERROR 

P10 — All declarative statements must 
precede all executable statements. 

039 MORE THAN SIX CHARACTERS IN NAME 
P10 — Not allowed. 


041 MULTI-DEFINED NAME 

P10 — A symbol is defined more than 
once. For example, a real variable is 
redefined as an integer variable. 


042 MULTI-DEFINED STATEMENT NUMBER 

P^IO -- This statement number has been 
used previously. Every statement number 
should be unique, and associated with 
only one statement in a program. 


043 RESERVED WORDS 

P10 and Pi2 — A reserved word may not 
be used as a variable, array, or subpro¬ 
gram name. 


044 TOO MANY DECIMAL POINTS 

P10 — Not more than one decimal point 
may appear in a real or double-precision 
number. 


045 DECIMAL POINT AFTER E 

P10 — A decimal point has been found in 
the E decimal exponent part of a real or 
double-precision number. 


046 TOO MANY E'S 

P10 — A second E has been found in a 

number (e.g. , 2.7E2E3) . 


047 ILLEGAL NUMBER OR NAME 

P10 — Illegal use of a number. For 
example, in the statement, DIMENSION 
5 (1,2) , the number 5 is not a proper 
array name. 


048 MORE THAN THREE DIMENSIONS 

P10 -- Maximum number of dimensions 

permitted in an array is three. 


049 DIMENSION ERROR 

P10 — Illegal delimiter or dimension of 
an array too big in a COMMON, DIMENSION, 
or Explicit Specification statement. 


050 CANNOT EQUATE 

P10 — At least two variables or sub¬ 
scripted variables should appear in the 
parenthesis of an EQUIVALENCE statement. 


051W COMMA MISSING 

P10 — A required comma was not encoun¬ 
tered. The statement is compiled as 
though a comma were there. 

052 WRONG DIMENSION 

P>I0 — Number of subscripts in the 
variable used does not correspond to the 
number of subscripts in the variable as 
defined in a COMMON, DIMENSION, or 
Explicit Specification statement. 
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053 SUBSCRIPT ERROR 


STATEMENT NUM- 


P10 The subscript expression contains 
more than three subscripts, an illegal 
delimiter, or an illegal variable. 


054 INVALID ARGUMENT IN ASF 

P10 -- An illegal delimiter or variable 
appears in the statement function arcru— 
ment list. ^ 


055 INVALID ARGUMENT IN HEADER CARD 

P10 An illegal variable or a multi- 
defined variable appears in the function 
definition argument list. 


056 ILLEGAL STATEMENT NUMBER FIELD 

P10 — Statement number list in a 
computed Go TO or in an arithmetic IF 
statement is invalid. 


057 DATA SET REFERENCE NUMBER MISSING 

P10 — There is no data set reference 

number specified. For example, WRITE 

(r 10) . 


058 LEFT PARENTHESIS 
READ/WRITE 


MISSING 


AFTER 


P10 -- The left parenthesis in a READ or 
WRITE statement is missing. For exam¬ 
ple, in the statement: WRITE 3,10), the 
left parenthesis before the 3 is needed. 


060 ERROR IN VARIABLE 

P10 — Illegal variable in an EQUIVA¬ 

LENCE statement. 


064 TOO MANY SYMBOLS AND 
BERS 

P10 — The Dictionary Table has over¬ 
flowed. Subdividing the program or 
reducing the number of symbols and 
statement numbers is necessary. 


065 ILLEGAL STATEMENT NUMBER OR PAUSE 
NUMBER 

P10 Either an alphabetic or * illecral 
character is the first character in a 
statement number or there are more than 
five digits in the statement number. 


066 BACKWARD DO LOOP 

P10 The statement specified in the 
range of the DO statement may not pre¬ 
cede the DO statement. 


068 ERROR IN EXPONENT 

P10 — An exponent is missing or it is 
too big in a real or double-precision 
number. 


069 TOO MANY ARGUMENTS IN ASF 

PI 9 More than fifteen arguments in 
Arithmetic Statement Function definition 
is not permitted. 


070 ILLEGAL FUNCTION NAME 

P10 Illegal subprogram name in a 

FUNCTION or SUBROUTINE header statement. 

071 ILLEGAL SUBROUTINE NAME 

P10 Illegal delimiter or illegal 

subroutine name in a CALL statement. 


072 ASF OUT OF SEQUENCE 


061W STATEMENT CANNOT BE REACHED 

P10 -- Statement following a GO TO, 
RETURN, or STOP has no statement number. 


P10 -- Arithmetic Statement Function 
statement is out of sequence or an array 
is not dimensioned prior to its first 
use. 


063 EQUIVALENCE SUBSCRIPT ERROR 

P10 —- There is an illegal delimiter or 
a missing subscript in an EQUIVALENCE 
subscript. 


073 TRANSFER TO NON-EXECUTABLE STATEMENT 

P10 The statement number referred to 
by a GO TO, computed GO TO, or an 
arithmetic IF statement is a FORMAT or 
specification statement. 
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074 INCONSISTENT EQUATE 

P10, P12 — A variable appears in COMMON 
more than once or an inconsistent equate 
was made (e.g., the statement COMMON (A, 
B, C, A) is illegal) . 


075 UNFINISHED STATEMENT 

PI 4 — A right parenthesis at the end of 
the statement is missing. 


084 MORE THAN FOUR WARNINGS IN STATEMENT 

P10 and PI4 — Further attempt to com¬ 
pile the statement is terminated because 
four warning messages have already been 
generated. 


085 COMPILER ERROR 

Pi2 and Pi4 — Compilers working text 
contains meaningless code. Job process¬ 
ing is continued. 


076 PARENTHESIS ERROR 

Pi 0 and PI 4 — A parenthesis is not 
closed or is missing. The error is 
substantial. 


077 ILLEGAL DELIMITER OR MISSING SYMBOL 

P10 and PI4 -- An improper delimiter or 
illegal special character was encoun¬ 
tered. 

078 ILLEGAL END DO 

PI 4 — The last statement in the range 
of a DO loop cannot be a non-executable 
statement, Arithmetic IF, GO TO, PAUSE, 
RETURN, STOP, or another DO statement. 


079 TYPE MUST BE INTEGER SCALAR 

P10 and P14 — The DO variable must be a 
non-subscripted integer variable. 


080 COMMA MISSING 

pi 4 — a required comma was not encoun¬ 
tered. The error is substantial. 


081 ERROR IN PUNCTUATION 

P10 and PI4 -- Illegal decimal point or 
a number is missing following decimal 
point. 


086 ILLEGAL BLANK 

P 14 — An illegal embedded blank was 

found in the FORMAT statement. 


087 NUMBER MISSING 

Pi4 — A number is missing in E, F, T, 
A, I, D, or X conversion code or an 
illegal delimiter precedes the number. 

088 NESTED PARENTHESIS 

pi 4 — Not more than one level of nested 
parentheses is permitted in a FORMAT 
statement. 


089 ILLEGAL DATA SET REFERENCE NUMBER 

pi 4 — Data set reference number must be 
an integer variable or constant. 

090 QUOTE NOT CLOSED 

Pi4 — A quote mark was not found termi¬ 
nating the literal data in a FORMAT 
statement. 


091 ILLEGAL SIGN 

P 14 — A P format code or a blank are 
the only legal delimiters following a 
plus or minus sign in a FORMAT state¬ 
ment. 


092 ILLEGAL COMMA 


082 ILLEGAL NUMBER 

P10 and PI4 — There is an error in an 
integer, real, or double precision 
number. 

083 ERROR IN INTEGER 

P10 and Pi4 — Number zero not allowed. 


Pi 4 — An erroneous comma appears in the 
statement. 

093 NUMBER TOO BIG 

PI 4 — The number specified in the 

FORMAT statement either preceding or 
following the format code cannot be 
longer than four digits. 
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094 TOO MANY DECIMAL PLACES 

PI 4 -- The number of decimal places must 
be less than the size of the entire 
number in a FORMAT statement. 


095 STATEMENT NUMBER REFERENCE NOT FOR¬ 
MAT STATEMENT 

PI 4 — The statement number referred to 
in a READ/WRITE statement is not that of 
a FORMAT statement. 


096 ILLEGAL VARIABLE IN I/O LIST 

PI 4 -- The use of subprogram names is 
not allowed in an I/O list. 


097 TOO MANY ELEMENTS IN I/O LIST 

PI 4 — The I/O list in the READ or WRITE 
statement contains too many elements. 
There are approximately 250 variables 
permitted in a single I/O list. The 
READ or WRITE statement should be divid¬ 
ed into several statements. 


098 NO CHARACTER BETWEEN QUOTES 

PI 4 -- An open quote is immediately fol¬ 
lowed by close quote in the FORMAT 
statement. At least one character 
should appear within the quotes. 


099 TOO MANY CHARACTERS BETWEEN QUOTES 

PI 4 — The number of characters appear¬ 
ing within quotes in the FORMAT state¬ 
ment is too large for the compiler to 
handle. That is, not more than 255 
characters should appear between quote 
marks in a FORMAT statement. The format 
quote usage should be subdivided. 


100 ILLEGAL DO VARIABLE OR CONSTANT 

Pi 4 — DO parameter must be an integer 
non-subscripted variable or integer con¬ 
stant . 


123 FUNCTION NAME NOT DEFINED 

PI 5 — The function name is not defined 
in its function subprogram (i.e., it 
does not appear on the left side of. an 
equal sign) . 


124 ERROR IN FUNCTION CALL 

PI 5 — An undetermined error was found 
in the argument list of a function call. 


125 DO VARIABLE REDEFINED 

PI 5 — A DO variable has been redefined 
within the range of the DO loop. 


126 FUNCTION ARGUMENT MISSING 

PI 5 — An argument of a function ref¬ 
erence is missing. 


127 COMPILER ERROR 

PI2 and PI5 — Compilers working text 
contains meaningless code. Job process¬ 
ing is terminated. 


128 INVALID CALL OR IF STATEMENT 

PI 5 — Illegal call, or Arithmetic IF 
statement. 


129 MULTI-DEFINED NAME 

PI 5 — A name is re-defined. 


130 INVALID ARGUMENT 

PI 5 — The mode of the argument does not 
agree with the mode of the fuhction. 


131 WRONG MODE 

PI 5 — The mode of the argument does not 
agree with the mode of the in-line 
function. 


132 INCORRECT NESTING OF DO 

PI 5 — The last statement in the range 
of the DO loop nested within other DO 
loops, exceeds the range of one or more 
of those DO loops. 


133 ILLEGAL EQUAL SIGN 

PI 5 — Two equal signs appear in the 
same statement. 
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134 MORE THAN FOUR WARNINGS IN STATEMENT 

PI 5 — Further attempt to compile the 
statement is terminated because four 
warning messages have already been gen- 
erated. 


135 SUBSCRIPT NOT ALLOWED 

PI 5 -- A subscript is not allowed in an 
arithmetic statement function defini¬ 
tion. 


136 UNDEFINED STATEMENT NUMBER 

PI 5 -- The referenced statement number 
does not exist in the program. 


137 NAME MISSING OR ILLEGAL DELIMITER 

PI 5 -- Illegal delimiter found. For 
example, X=A+*B. A variable or constant 
is missing between the two operators or 
one of the operators is superfluous. 


138 SUPERFLUOUS OPERATOR 

PI 5 — There is a superfluous arithmetic 
operator in the statement. 


139 WRONG NUMBER OF ARGUMENTS IN ASF 
CALL 

Pi 5 — The number of arguments in an 
Arithmetic Statement Function reference 
or in an in-line function reference does 
not agree with the function definition. 


140 TOO MANY PARAMETERS 

PI 5 — The maximum number of parameters 
allowed is 48. Subdividing the state¬ 
ment is suggested. 


141 ILLEGAL SUBPROGRAM NAME 

PI 5 -- Name of a function or subroutine 
call is not defined as a function or 
subroutine subprogram name. 


142 MORE THAN TWENTY FIVE LEVELS OF DO 
NESTING 

PI 5 -- Not more than twenty-five DO 
loops may be nested. 


143 INVALID RESULT FIELD 

PI 5 — The result field of an arithmetic 
statement is invalid. 


144 ILLEGAL NUMBER OF STATEMENT NUMBERS 

PI 5 — An arithmetic IF statement must 
contain exactly three statement numbers. 


145 PROGRAM TOO BIG 

PI2 and P20 — The object program has 
exceeded the basic register range. 


146 INCONSISTENT EQUATE 

P12 — For example, EQUIVALENCE 

(A (1) ,B) , (A (2) ,C) , (B,C) or a double pre¬ 
cision variable in COMMON is not on 
boundary. 


147 TWO VARIABLES IN COMMON 

PI 2 — Two or more variables equiva- 
lenced are in common. 


148 COMMON EXTENDED UPWARD 

P12 — An EQUIVALENCE statement causes 
COMMON to be extended in negative direc¬ 
tion. 


149 DUMMY ARRAY OR VARIABLE IN COMMON 

PI 2 — A dummy variable or array is not 
permitted in COMMON. 


0150 CANNOT EQUATE 

PI2 — The equated name is not a varia¬ 
ble. 


160W SUPERFLUOUS INFORMATION AT END OF 
STATEMENT 

P10, Pi4 and Pi 5 — The statement has 
been completed but something superfluous 
exists at the end (e.g., Rewind I XYZ, 
XYZ is superfluous) . 


161W SUGGEST SUBDIVIDING PROGRAM 

PI2 — Program causes use of spill base 
register producing inefficient object 
code. 
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162W BLANK CARD 


169W RIGHT PARENTHESIS MISSING 


P10 -- The card contains only a state¬ 
ment number. The card is ignored. 


163W TOO MANY DIGITS IN NUMBER 

P10 -- There are too many significant 
decimal digits in number. 


164W STATEMENT NUMBER MISSING 

P10 and Pi 4 — Format statement must 
have a statement number. The statement 
is ignored. 


165W UNREFERENCED FORMAT STATEMENT 

PI 4 — A FORMAT statement is not 
referred to by any other statement. The 
FORMAT statement is not processed. 


166W REDUNDANT COMMA 

P10 and PI4 — The redundant comma in 
the statement is ignored. 


167W LINE TOO LONG 

PI 4 — Format line length exceeds 
printer line length. Processing is com¬ 
pleted. 


168W END CARD MISSING 

P10 — The END statement is missing. 
Job processing continues as if it were 
there. 


P10 and PI5 — The right parenthesis in 
the statement is missing. Processing 
continues as if it were there. 


170W ZERO OR NO COUNT IN X CONVERSION 

PI 4 — The number preceding the X format 
code is 0 or blank. Processing contin¬ 
ues. 


171W PARAMETERS MISSING 

P10 and PI 4 — There are no parameters 
following a left parenthesis or a comma. 


172W UNREFERENCED ASF ARGUMENT 

PI 0 — Argument or statement function 
not referred to in the arithmetic 
expression of an arithmetic statement 
function. 


173W EXCESSIVE RIGHT PARENTHESIS 

P10 — The additional right parentheses 
in the statement are ignored and proc¬ 
essing continues. 


174W ARRAY USED AS SCALAR 

PI5 — The name of the array is not 
followed by a subscript enclosed in 
parentheses. 


175W STATEMENT NUMBER ON DECLARATIVE STATE¬ 
MENT 

PI0 — The statement number associated 
with the declarative statement is super¬ 
fluous . 
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APPENDIX B: OBJECT PROGRAM DIAGNOSTICS 


ERROR CODE DIAGNOSTICS 


When an error condition arises during 
execution of a program, an error code 
number is printed. In the following text, 
the error codes are given in numerical 
order; each is followed by an explanation 
describing the type of error. Preceding 
each explanation is an abbreviated name 
indicating the segment of the FORTRAN sys¬ 
tem that generates the error code. 

The abbreviated name for each segment 

is: 


IBC -- IBCOM Routine 
LDR -- Relocating Loader 
LIB -- FORTRAN Library 


200 

LDR — An end-of-data-set has been 
detected. 


201 

LDR — An error has occurred in the 
IBCOM or reference table overlay proc¬ 
ess. 


202 

LDR --An SLC, ICS, or REP statement has 
an invalid format. 


203 

LDR --An SLC name was omitted from the 
SLC statement. 


204 

LDR — A program to which reference was 
made by another program is missing. 


206 

LDR — An invalid ESD statement type has 
been detected. 


207 

LDR — A duplicate symbol has been 
detected. 


208 

LDR — The size of main storage is 
insufficient to process the job. 


209 

LDR — An invalid loader card has been 
detected. 


211 

IBC — An invalid character has been 
detected in a FORMAT statement. 


212 

IBC — An attempt has been made to READ 
or WRITE past an end-of-data-set. 


213 

IBC — The input list in a non-formatted 
I/O statement is larger than the logical 
record. 


214 

IBC — An attempt has been made to WRITE 
more than 255 records within one logical 
record. 


215 

IBC — An invalid character exists for 
the decimal input corresponding to an 
I,E,F or D format code. 


216 

IBC — An illegal sense light number was 
detected in a SLITE or SLITET statement. 


205 


50 


LDR — An error has occurred in the 
blank COMMON overlay process. 



217 


253 


IBC -- An end-of-data-set was sensed 
during a READ operation. 


LIB — 
LOGIO (x) 


In the subprogram 
, x<0 is illegal. 


LOG (x) 


or 


241 


254 


LIB — In the subprogram FIXPI (I**J) , 
where I and J are integer variables or 
subscripted variables, 1=0, J<0 is ille¬ 
gal. 


LIB — 
COS (x) , 


In the subprogram SIN (x) or 
|x| > 2*8 is illegal. 


261 


242 


LIB — In the subprogram DSQRT (x) # x<0 

is illegal. 


LIB — In the subprogram FRXPI (R**J) , 
where R and J are real and integer 
variables or subscripted variables, res¬ 
pectively, R=0, J<0 is illegal. 


262 

LIB In the subprogram DEXP(x) , 

x>174.673 is illegal. 


243 


263 


LIB — In the subprogram FDXPI (D**J) , 
where D and J are double-precision and 
integer variables or subscripted varia¬ 
bles, respectively, D=0, J<0 illegal. 


LIB — 
DLOGIO (x) 


In the subprogram DLOG 
# x< 0 is illegal. 


(x) 


or 


264 


244 

LIB — In the subprogram FRXPR (R**S) , 
where R and S are real variables or 
subscripted variables, R=0, S<0 is ille¬ 
gal. 


245 

LIB — In the subprogram FDXPD (D**P) , 
where D and P are double—precision vari¬ 
ables or subscripted variables, D=0, P<0 
is illegal. 


251 

LIB — In the subprogram SQRT (x) , x<0 is 
illegal. 


252 

LIB — In the subprogram EXP (x) , 
x>174.673 is illegal. 


LIB — In the subprogram DSIN (x) or 
DCOS (x) , |x| > 2 5 ° is illegal. 


PROGRAM INTERRUPT MESSAGES 


Program interrupt messages containing 
the old Program Status Word (PSW) are 
produced when one of the following occurs: 

1. Exponent-Overflow Exception. 

2. Exponent-Underflow Exception. 

3- Floating—Point—Divide Exception. 

Operator intervention is not required 
for any of these interruptions. Figure 35 
shows the interruption message format. 

The three characters in the PSW (i.e., 
C, D, or F) represents the code number (in 
hexadecimal) associated with the type of 
interruption. 


I 

I 

I 


Figure 35. 


(C) 

PROGRAM INTERRUPTION - OLD PSW IS xxxxxxxj D jxxxxxxxx 

If) 

Program Interrupt Message Format 


i 

I 

I 

I 

j 
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Exponent-Overflow Exception 


the result of a floating-point addition, 
subtraction, multiplication, or division is 
less than 16~ 63 (approximately IQ-* 75 ) . 


The exponent-overflow exception, 
assigned code number C, is recognized when 
the result of a floating-point addition, 
subtraction, multiplication, or division is 
greater than 16 63 (approximately 10 75 ). 


Exponent-Underflow Exception 


The exponent—underflow exception, 

assigned code number D, is recognized when 


Floating-Point-Divide 


Exception 


The floating-point-divide exception, 
assigned code number F, is recognized when 
division by a floating-point number with a 
zero fraction is attempted- For more 
information about the PSW, refer to the 
publication, IBM System/360 Princ iples of 
Operation , Form A22-6821- 


* 


i 
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APPENDIX C; ASSEMBLER LANGUAGE SUBPROGRAMS 


This appendix provides information need¬ 
ed to prepare and use relocatable subpro¬ 
grams written in assembler language with a 
FORTRAN job. 


CALLED AND CALLING PROGRAMS 


Any subprogram that is referred to by 
another program is considered a called 
program; if this called subprogram refers 
to another subprogram then it is both a 
called and calling subprogram. In 

Figure 36, for example, if program A calls 
program B and program B calls program C 
then: 

1. A is considered a calling program by 

B. 

2. B is considered a called program by A. 

3. B is considered a calling program by 

C. 

4. C is considered a called program by B. 


3. An assembler-written subprogram call¬ 
ing another assembler-written subpro¬ 
gram. 

From these combinations, more complicated 
structures may be formed. For example, a 
FORTRAN program can call an assembler- 
written subprogram which then could call 
another assembler-written subprogram. 

The Basic Programming Support FORTRAN 
System has established certain conventions 
which must be considered when giving and 
returning control to assembler-written 
subprograms. These conventions, called 
linkage conventions, are described in the 
following text. 


FORTRAN LINKAGE CONVENTIONS 


When a FORTRAN subprogram calls another 
FORTRAN subprogram, certain save and return 
routines are generated in addition to a 
calling sequence that actually transfers 
control. Figure 37 shows a typical subpro¬ 
gram configuration generated by a calling 
subprogram. 
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|programj- 
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! 1 
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1 1 
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Figure 36. Called and Calling Programs 


There are three basic FORTRAN job struc¬ 
tures that can be formed using assembler- 
written subprograms in a FORTRAN job: 

1. A FORTRAN program (or subprogram) 
calling an assembler-written subpro¬ 
gram. 

2. An assembler-written subprogram call¬ 
ing a FORTRAN subprogram. 



Entry-- 

j Save Routine 

| User-Written 
j Subprogram 


Calling Sequence 


| to Another 
j Subprogram | 

t - H 

I Remainder of 
| User-Written 
j Subprogram 

\ - H 

| Return Routine 

- 

| Parameter List 
j Area 

l -j 


Figure 37. Calling Subprogram Configuration 


Assembler-written subprograms need not 
be constructed with save and return rou¬ 
tines exactly as the FORTRAN system gener¬ 
ates them; however, there are basic conven- 
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tions of the FORTRAN system to which the 
assembler programmer must adhere. These 
conventions include: 

1. Utilizing the proper registers in 
establishing a linkage. 

2. Reserving a parameter area in the 
calling program in which the called 
program may refer to the parameter 
list. 

3. Reserving a save area in which the 
registers used in the linkage may be 
saved. 


REGISTER USE 


The Basic Programming Support FORTRAN 
System has assigned roles to certain reg¬ 
isters used in linkages. Figure 38 illus¬ 
trates the function of each linkage reg¬ 
ister. 


PARAMETER AREA 


Every assembled subprogram which calls 
another subprogram must reserve an area of 
storage (parameter area) in which the pa¬ 
rameter list used by the called subprogram 


is located. Each entry in the parameter 
area occupies four bytes at a full-word 
boundary. 

The first byte (bit 0 through bit 7) of 
each entry in the parameter area contains 
zeros. The bit 0, however, may contain a 1 
to indicate the last entry. 

The last three bytes of each entry 
contain the 24 bit address of the argument. 


SAVE AREA 


An assembled subprogram, which calls 
another subprogram, must reserve an area of 
storage (save area) in which certain reg¬ 
isters (i.e., those used in the subprogram 
and those used in the linkage to the 
subprogram) are saved. 

The maximum amount of storage reserved 
by the subprogram is 18 words. Figure 39 
shows the layout of the save area and the 
contents of each word. 

An assembled subprogram which does not 
call another subprogram need not establish 
a save area. However, if registers 13 or 
14 are used by the subprogram, that subpro¬ 
gram should save their contents in a 
desired location and restore them before 
returning control to the calling program. 


r- t 

Register 
Number 




0 


Register Name 
Result Register 


Parameter List Register 


Contents 


Used for function subprograms only. The result 
is returned in general or floating-point reg¬ 
ister 0, depending on the type of function 
(e.g., integer, real, and double-precision) . 
For subroutine subprograms, the result (s) is 
returned in the variables specified by the 
programmer. 


Address of the parameter list passed to the 
called program. 


13 


Save Area Register 


Address of the area reserved by the program 
being executed (called or calling) in which the 
contents of certain registers are stored. 


14 


1 *- 


15 




Return Register 


Address of the location in the calling program 
to which control should be returned after execu¬ 
tion of the called program. 


H 


Entry Point Register 


the called pro 


Address of the entry point m 
| gram. 


Figure 38. Linkage Registers 
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| AREA - 

j (word 1) 


word is a part of the standard linkage con- | 
vention established under System/360. The space I 
must be reserved for proper addressing of the I 
succeeding entries. However, an assembled pro- | 
gram may use the space for any desired purpose. 


AREA*4 - 
(word 2) 


h 

I 


The address of the previous save area; that is, 
, the save area of the subprogram that called 
| this one. 


AREA+8 - 
(word 3) 


AREA+12 
(word 4) 




The address of the next save area; that is, the 
save area of the subprogram to which this sub¬ 
program refers. 


I-- 


The contents of register 14 containing 
dress to which return is made. 


the ad- ] 


AREA+16 
(word 5) 


-j-- 


The contents of register 15 containing the ad¬ 
dress to which entry into this subprogram is made. 


AREA+20 
(word 6) 


AREA+24 
(word 7) 


AREA+28 
(word 8) 


h 

I 


I 


The contents of register 0 


-^ 


- 


| The contents of register 1 

I 


I 

- 


| The contents of register 2 

I 


I-- 


AREA+68 — 
(word 1 8) 


I-- 

I 
I 
I 

j The contents of register 12 

i 

I 




I 


Figure 39. Save Area Layout and Word Contents 
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SAMPLE CALLING SUBPROGRAM LINKAGE 


The linkage conventions used by an 
assembled subprogram which calls another 
subprogram are shown in Figure 40. 

The coding does not have to exactly 
conform to that shown in Figure 40. How¬ 
ever, the linkage should include: 

1. The calling sequence by which an 
assembled subprogram may reference 
another subprogram. 


2. The save and return routines by which 
the appropriate save area is estab¬ 
lished and control is returned to the 
calling program. 


3. The out-of-line parameter area by 
which an assembled subprogram may pass 
parameters. (An in-line parameter 
area may be used instead; see the 
section, "In-line Parameter Area.") 
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j deckname 

I 

I 


I * 


|name, 

I* 

I* 

I* 

I 

I * 

I* 

I 

I* 

I 

I* 

I 

I* 

I * 

I 

| AREA 

I* 

Iprob, 

I 

I 


USING 
Save Routine 


START 0 

ENTRY name 1 

EXTRN name 2 

DC CLm'name 1 ' 

DC X'm' 

* # 1 5 

STM 14,r i# 12(13) 


DR r 2 ,13 

LA 13 , AREA 

ST 1 3,8 (0,r 2 ) 

ST r 2 ,4(0,13) 


BC 15 r prob 1 

DS 18F 


m must be an odd number to ensure that the program 
starts on a half-word boundary. The name may be I 
padded with blanks. 

the contents of registers 14, 15, and 0 through r,| 
are stored in the save area of the calling program! 
(previous save area) . r, is any number from 0| 
through 12. 

loads register 13, which points to the save area of| 
the calling program, into any general reqister, r-, I 
except 0 and 13. 

loads the address of this program's save area into 
register 13. 

store the address of this program's save area into I 
word 3 of the save area of the calling program, 
stores the address of the previous save area (i.e. I 
the same area of the calling program) into word 2 of I 
this program's save area. 


reserves 18 words for the save area. This is last 
statement of save routine. 

User-written program statements 


j * Calling Sequence 


I 


I* 
I * 


LA 
L 

BALR 

BC 


1,ARGLST 
15 r ADCON 
14, 15 
0,X'isn' 


first statement in calling sequence. 


I 


last statement in calling sequence. The isn repre-I 
sents the internal statement number that is used bvl 
a trace routine. 1 j 


Remainder of user-written program statements 


1 

1 

• 

1 

• 

|* Return Routine 

1 L 

13,AREA+4 

j * 

LM 

* 

2,r,,28 (13) 

1 L 

14, 12 (13) 

1 * 

1 MV I 

1 * 

12 (13) ,X'FF 

i 

i* 

1 BCR 

15,14 

j ADCON DC 

A (name 2 ) 

1 

| * Parameter Area 

ARGLST DC 

AL4 (arg 1 ) 

DC 

AL4 (arg 2 ) 

DC 

o 

00 

• X 

DC 

L 

AL3 (arg n ) 


I 


first statement in return routine. Loads the address 
of the previous save area back into register 13 
the contents of registers 2 through r, are restored 
from the previous save area. 

loads the return address, which is in word 4 of the I 
calling program, into register 14. 

sets flag FF in the save area of the calling program 
to indicate that control has returned to the callina 
program. y ! 

last statement in return routine, 
contains the address of subprogram name 2 . 


I 


first statement in parameter area setup. 


first byte of last argument. 

last statement in parameter area setup. 


Figure 40. Sample Linkage Routines Used With a Calling Subprogram 


—j 
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Lowest: Level Subprograms 


substitute the calling sequence and param¬ 
eter area shown in Figure 40 with that 
shown in Figure 42. 


If an assembled subprogram does not call 
any other program (i.e., if it is at the 
lowest level) , the programmer should omit 
the save routine, calling sequence and 
parameter area shown in Figure 40. 
Figure 41 shows the appropriate linkage 
conventions used by an assembled subprogram 
at the lowest level. 


In-Line Parameter Area 


The assembler programmer may establish 
an in-line parameter area instead of out- 
of-iine area. In this case, he may 


SHARING DATA IN COMMON 


The Basic Programming Support FORTRAN 
System uses register 4 as a pointer to a 
COMMON area of a FORTRAN program. Addi- 
tional registers (e.g., register 5, 6, 
etc.) are used if the size of the COMMON 
area warrants such. 

If an assembler-written subprogram is to 
share data in COMMON with a FORTRAN pro¬ 
gram, that subprogram should also use reg¬ 
ister 4. However, if an assembler-written 
subprogram is to share data in COMMON with 
another assembler-written subprogram, the 
programmer may use any general register 
available as a pointer to the COMMON area. 


| deckname 

START 

0 1 


ENTRY 

name 1 


DC 

CLm'name' 


DC 

X'm' 1 


USING 

*,15 I 


STM 

14,r,, 12(13) | 

1 

| 

i 

| User - written program 

* 

1 

1 

statements | 

1 

| 

1 

1 

1 

LM 

1 

1 

2,r*,28 (13) | 

1 

1 

MVI 

12 (13) ,X*FF* | 

1 

1 

BCR 

15,14 | 

1 

h— 

j Note: If 

registers 13 and/or 14 are used| 

|in the 

called subprogram. 

their contents| 

I should 

be saved and restored by tne| 

jcalled subprogram. 

J 


Figure 41. Sample Linkage Routines Used 
With a Lowest Level Subprogram 


ADCON 

DC 

A(prob,) 


LA 

14,RETURN 


L 

15,ADCON 


CNOP 

2,4 


BALR 

1,15 


DC 

AL4 (arg ,) 


DC 

AL4 (arg 2 ) 


DC 

X* 80* 


DC 

AL3 (arg n ) 

RETURN 

BC 

0,X'isn' 


Figure 42. Sample In-Line Parameter Area 
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APPENDIX D: FORTRAN LIBRARY SUBPROGRAMS 


There are two types of subprograms pro¬ 
vided in the IBM System/360 Basic Program¬ 
ming Support FORTRAN IV library: mathemati¬ 
cal subprograms and service (utility) sub¬ 
programs. This section contains informa¬ 
tion to help the programmer select the 
proper subprogram for solving his problem. 


DEFINITION OF SYMBOLS 


The symbols used throughout this appen¬ 
dix are: 


Symbol Explanation 

g (x) = The result given by the subpro¬ 

gram. 

f (x) = The correct extra precision 

result. 


a (E) 


a (e) 


The maximum relative error pro¬ 
duced during testing. 

(x,) - g(xj I 2 

v*n i 


The root-mean-square (standard 
deviation) absolute error. 



lv I f (Xi ) 

f 


(Xi) 1 2 
<*i) | 


The root-mean-square (standard 
deviation) relative error. 


MATHEMATICAL SUBPROGRAM DESCRIPTIONS 


To facilitate quick reference, the fol¬ 
lowing description of the mathematical sub¬ 
programs are arranged in the order in which 
they appear on the FORTRAN system tape 
supplied by IBM. The description of each 
mathematical subprogram includes the: 


The symbols used in describing the 
effect of an argument error on the accuracy 
of the result given by the subprogram are: 


1. Purpose. 

2. Permissible Entry Points. 


Symbol 


Explanation 


3. Range. 


e = 1 f (x) - g (x) | 

I f (x) | 

The relative error of the 
result given by the subprogram. 

6 = The relative error of the argu¬ 

ment. 

E = | f (x) - g (x) | 

The absolute error of the 
result given by the subprogram. 


4. Accuracy. 

5. Storage requirements. 

6. Considerations that should be noted in 
using the subprogram. 

7. Method by which each subprogram is 
derived. 

8. Calling Sequence. 


A 


The absolute error of the argu- ACCURACY 
ment. 


The symbols used in describing the accu¬ 
racy of the result given by the subprogram 
are: 


Symbol 

M(E) 


M(e) 


Explanation 
Max If(x) - g(x) I 


The maximum absolute error pro¬ 
duced during testing. 


Max 


If (x) 
I 


- g(x) I 
f (x) | 


Because the size of a machine word is 
limited, small errors may be generated by 
mathematical subroutines. In an elaborate 
computation, slight inaccuracies can accu¬ 
mulate and become large errors. Thus, in 
interpreting final results, the user should 
take into account any errors introduced 
during the various intermediate stages. 

The accuracy of an answer produced by a 
subroutine is influenced by two factors: 

(1) the accuracy of the argument, and (2) 
the performance of the subroutine. 
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Most arguments contain errors. An error 
in a given argument may have accumulated 
over several steps prior to the use of the 
subroutine. Even data fresh from input 
conversion contain slight errors. Because 
decimal data cannot usually be exactly 
converted into the binary form required by 
the processing unit the conversion process 
is usually only approximate. Argument 
errors always influence the accuracy of 
answers. The effect of an argument error 
on the accuracy of an answer depends solely 
on the nature of the mathematical function 
involved and not on the particular coding 
by which that function is computed within a 
subroutine. In order to assist users in 
assessing the accrumulation of errors, a 
guide on the propagational effect of argu¬ 
ment errors is provided for each function. 
Wherever possible, this is expressed as a 
simple formula. 


The Performance of the Subroutine 


The performance statistics supplied in 
this appendix are based upon the assumption 
that arguments are perfect (i.e., without 
errors, and therefore having no argument 
error propagation effect upon answers) . 
Thus the only errors in answers are those 
introduced by the subroutines themselves. 

For each subroutine, accuracy figures 
are given for one or more representative 
segments within the valid argument 
range (s) . In each case the particular 


statistics given are those most meaningful 
to the function and range under considera¬ 
tion. 

For example, the maximum relative error 
and standard deviation of the relative 
error of a set of answers are generally 
useful and revealing statistics, but use¬ 
less for the range of a function where its 
value becomes 0, since the slightest error 
of the argument value can cause an unbound¬ 
ed fluctuation on the relative magnitude of 
the answer. Such is the case with sin (x) 
for x near n, and in this range it is more 
appropriate to discuss absolute errors. 


METHOD 


Some of the formulas are widely known; 
others not so widely known are derived from 
more commonly known formulas. In such 
cases, the steps leading from the common 
formula to the computational formula have 
been sketched with enough detail so that 
the derivation may be reconstructed by 
anyone with a basic understanding of mathe¬ 
matics and who has access to the common 
texts on numerical analysis. 

Any of the common numerical analysis 
texts may be used as a reference. One such 
text is Hildebrand, F.B., Introduction to 
Numerical Analysis , McGraw-Hill Book Com¬ 
pany Inc., New York, N. Y., 1956. Back¬ 
ground information for algorithms involving 
continued fractions may be found in Wall, 
H.S., Analytic Theory of Continued Frac¬ 
tions , D. Van Nostrand Co., Inc., Prince¬ 
ton, N. J., 1948. 
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ALOG Subprogram 


PURPOSE: To compute the natural (ALOG) or 
the common (ALOG 10) logarithm of a real 
number. 


ENTRY POINTS: ALOG and ALOG10 


RANGE: 0<x 

ACCURACY: The accuracy of the ALOG subpro¬ 

gram is shown in Figures 43 and 44. 


r T- T - 

I I 0 (E) | M (E) | 

| |ROOT-MEAN-SQUAREjMAXIMUM 

| ARGUMENT |Absolute (Absolute | 

j RANGE |ERROR |ERROR 

(.-X-L-^ 

j ALOG 

|0.5<x<1.5 |8.62 xl0~ 8 |3.46x10- 7 

I-- H 

|ALOG10 I 

h T - T --| 

|0.5<x<1.5 |4.78x10 —8 |1.64x10 —7 

j.-x---x--l 

|These statistics are based on a uniformly| 

(distributed argument sample. | 


Figure 43. ALOG Subprogram, Absolute Error 


r t t-1 

I I O (e) | M (e) 

|ROOT-MEAN-SQUARE j MAXIMUM j 

| ARGUMENT jRelative (Relative 

| RANGE (ERROR ERROR 

h -X-X- \ 

| ALOG 

\ 7- T -T- 1 

|x outside | 1.20x10~ 7 |8.32x10- 7 

I (0.5,1.5) | 

I-- x --L- \ 

j ALOG10 

j- T- t-^ 

|x outside |2.17x10~ 7 jl.05x10“ 6 

HO.5,1.5) j 

(These statistics are based on an exponen-j 
Hialiy distributed argument sample. 

Figure 44. ALOG Subprogram, Relative Error 

STORAGE REQUIREMENTS: 257 bytes. 

CONSIDERATIONS: Checking is done at 

object time to ensure that the argument is 
within the valid argument range; if it is 
not, an error message is printed and 
execution is terminated. 

METHOD: 

1. Write x = 16 p *m, -- < m < 1. 

1 6 


2 . 


3. 


4. 


Define 2 constants a, b (a=base point, 
2“ b =a) as follows: 


1 6 


If 

1 

16 

< 

m < 

1 

8' 

a = 

If 

1 

8 

< 

m < 

1 

2 9 

a = 

If 

1 

2 

< 

m < 

1 , 

a = 

Write 

z 

= 

m-a 

m+a 

. 

Then 


i 

and |z| < ^. 

Now x = 2‘* p - b ^ 


= ^ and b = 2 

1 and b = 0. 

_ 1+z 

m = a • zr —, 
1 -z' 


5. 


Hence log e x = 

(4p-b) log e 2 + log a ({rf)- 

Eog e is computed using the 

Chebyshev interpolation polynomial of 
degree 4 in z 2 for the range 0 < z 2 < 

The maximum relative error of this 

approximation is 2~ 27 8 . 

Log 10 x = log 10 e • log e x. 


The effect of an argument error is 
E ~ 6 • In particular, if 6 is the minimal 
round-off error of the argument, 
say 6«10~ 8 , then E - 6*10~ 8 . This means 
that if the argument is close to 1, the 
relative error can be very large, since 
the function value there is very small. 

CALLING SEQUENCE: Out—of—line. 


SQRT Subprogram 


PURPOSE: To compute the square root of a 

real number. 

ENTRY POINT: SQRT 


RANGE: 0<x 

ACCURACY: The accuracy of the SQRT sub¬ 

program is shown in Figure 45. 


o (e) T M ( e ) ] 

|ROOT-MEAN-SQUARE j MAXIMUM 
ARGUMENT j Relative (Relative | 

RANGE I ERROR I ERROR 

- + - + - 1 

The full range|1.68xio~ 7 |8.70x10- 7 | 


|These statistics are based on an exponen-j 
j^tially distributed argument sample. 

Figure 45. SQRT Subprogram, Relative Error 
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STORAGE REQUIREMENTS: 168 bytes. 

CONSIDERATIONS: Checking is done at object 

time to ensure that the argument is within 
the valid argument range; if it is not, an 
error message is printed and execution is 
terminated. 

METHOD: 


1 . If x= 0 , Vx = 0 . Otherwise write x = 

16 2 p*hi where p is an integer and ^55 

<m< 1 - Then Vx = 1 6 p • Vm and p and Vm 
are the exponent and the mantissa of 
the answer respectively. 


2 . 


For the 1st approximation of Vm", take 
one of the following two hyperbolic 
approximations of the form a + b/(c + 

it.) : 

1 

a. For -- < m < 1, the values a= 

1 6 

1.80713, b =-1.57727, c= 0.954182 
minimize the maximal relative 
error e 0 over the range while mak¬ 
ing the exact fit at m=1. The 
exact fitting at m =1 minimizes 
the computational loss of the 
last hexadecimal digit for the 
values of m slightly less than 

1. e 0 <2- 5 *^. 


b. 


For he - m < 16' 


the values a = 


b=-0.0214398, c=0.0548470 


0.428795, 
minimize m 
e 0 denotes the relative error. 
£ o < 2 —6 • 5 •m - * . 


3. Apply Newtown-Raphson iteration, y n +i~ 
1 (y n -f 2 ^twice to the 1 st approxima¬ 
tion y c . For ^ < m < 1, the final 
relative error is theoretically less 
than 2~ 2t * ■~ 1 . For < m < the 

final absolute error is theoretically 
less than 2 -29 . 

The effect of an argument error is . 

CALLING SEQUENCE: Out-of-line. 


ATAN Subprogram 


PURPOSE: To compute the principal value 
(in radians) of the arctangent of a real 
number. 


ENTRY POINT: ATAN 


RANGE: Any size real argument is accepta¬ 

ble to this subprogram. 


ACCURACY: The accuracy of the ATAN subpro¬ 

gram is shown in Figure 46. 


T a( e ) I M( e ) 

j ROOT-MEAN-SQUARE j MAXIMUM 
ARGUMENT j Relative j Relative 

RANGE j ERROR |ERROR 

|The full range|4.54xl0 ~ 7 |9.75x10~ 7 | 


1 

(These statistics are based on tangents of| 
juniformly distributed numbers between 


-1-^ 


n n 

- and -. 

L_J 

Figure 46. ATAN Subprogram, Relative Error 


STORAGE REQUIREMENTS: 192 bytes. 


METHOD: 

1. Reduce computation of ATAN (x) to the 
case 0 < x < 1 by using Atan (-x) = 


-Atan (x) , Atan = \ “ Atan|x|. 


2. Reduce further to the case |x| < tan 
15° = 0.26795 by Atan (x) = 30° + Atan 

< tan 15° if tan 15° < 

x+v/T jx+v/3 j 

X < 1. 

Here compute V3x-1 as (V3-1) x-1+x to 
avoid the loss of significant digits. 


3. For |x| < tan 15°, use the approxima¬ 
tion formula: 


Atan_lx) ^ 0.603 10 5 7 9 - 0.05160454x 2 + 

X 

0^55913709_ (+) 

x 2 +1.4087812 

This formula can be obtainedby trans¬ 
forming the continued fraction : 
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Msq_1jc)= i _ | X 2+5 


I+X-2-W 


after 


substituting “yip) for 

W = 7^ 7^9 / ( 7 + x ~ 2+ *-*)- 


The original continued fraction can be 
obtained by transforming the Taylor 
series into a continued fraction form. 
The relative error of the formula (*) 
is less than 2 -27 1 . 


The effect of an argument error is 
E~~A / (1 + x 2 ) . For small x, ; and as x 
becomes large, the effect of 6 on ediminish¬ 
es. 


CALLING SEQUENCE: Out-of-line. 


TANH Subprogram 


This formula can be obtained by trans¬ 
forming the continued fraction: 


1 xf x 2 xf w 
1 + 3 + 5 + 7 + 


with an approximate value 0.0307 for 

w. 

The relative error of this approxima¬ 
tion is less than 2 - 27 . 

3. For 0.54931 < x < 9.011, use tanh x = 
1 - 2 / (e 2x + 1 ). 

4. For 9.011 < x, use tanh x = 1. 

5. For x < -0.54931, use tanh x = 

- tanh (—x). 

6 . The exponential subroutine is used in 
the case 3 above. 


PURPOSE: To compute the hyperbolic tangent 

of a real number. 

ENTRY POINT: TANH 


The effect of an argument error is E ~ (1 
- tanh 2 x) A,e~ 2 A/sinh 2x. Thus, for small 
x, e~ 6 , and as x gets larger, the effect 
of 6 on e diminishes. 


RANGE: Any size real argument is accepta¬ 
ble to this subprogram. CALLING SEQUENCE: Out-of-line. 

ACCURACY: The accuracy of the TANH subpro¬ 

gram is shown in Figure 47. 


r- t-t-t 

I I or (e) I M(e) | 

| |ROOT-MEAN-SQUARE|MAXIMUM | 

ARGUMENT (Relative (Relative j 

I RANGE j ERROR |ERROR | 

|-- + -+- 1 

||x( <0.54931 | 1 . 66 x 1 0 ~ 7 |8.12x10~ 7 | 

|0.54931<|x|<5 |7.53x10 - 8 |5.74x10“ 7 | 

1 -- x - x -^ 

|These statistics are based on a uniformly| 
(distributed argument sample. j 

l _j 

Figure 47. TANH Subprogram, Relative Error 

STORAGE REQUIREMENTS: 260 bytes. 

CONSIDERATIONS: The subprogram EXP is 

used by this subprogram. 

METHOD: 

1. For |x| < 2 “ i2 , give tanh x = x. 

2. For 2 ~ 12 < |x| < 0.54931, use the 
following fractional approximation: 

tanh x _ 1 _ xf+35^1535_ 

x x 2 +45.1842+1---“2- 

x 2 


EXP Suproqram 


PURPOSE: To compute the value of "e" 

raised to the power of a real argument. 

ENTRY POINT: EXP 

RANGE: x<174.673 

ACCURACY: The accuracy of the EXP subpro¬ 

gram is shown in Figure 48. 


r - T - T - 

I I a( e ) | M( e ) | 

| |ROOT-MEAN-SQUAREjMAXIMUM I 

ARGUMENT (Relative jRelative j 

j RANGE j ERROR j ERROR 

(.-+-+--I 

||x|<1 |1.28x10~ 7 |4.65x10 —7 | 


j | x| <170 j 1 . 17x10 _7 j 4.69 x10 -7 | 

I-- A --- 1 --H 

|These statistics are based on a uniformly| 
jdistributed argument sample. j 

Figure 48. EXP Subprogram, Relative Error 

STORAGE REQUIREMENTS: 280 bytes. 
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CONSIDERATIONS: Checking is done at object 
time to ensure that the argument is within 
the valid argument range; if it is not, an 
error message is printed and execution is 
terminated. 

METHOD 


ENTRY POINTS: COS and SIN 
RANGE: |x|< 2 18# n 

ACCURACY: The accuracy of the COS subpro 

gram is shown in Figures 49 and 50. 


1. If x < -180.218, give 0 as the answer. 

2. If lx( < 2~ 28 , give 1 as the answer. 

3. Otherwise, divide x by log e 2 and write 
y = x/log e 2 = 4a-b-d, where a, b are 
integers, 0 < b < 3, 0 < d < 1. Then 
e x = 2 y = 16 a •2~ b • 2 ~ d . 

4. Compute 2- d by the following fraction¬ 
al approximation: 

2 - d = 

1 __2d_ 

0.034657359d 2 +d+9.9545958-617^97227 

d2+87.417497 


This formula can be obtained by trans¬ 
forming the well known continued frac¬ 
tion : 

~ 1_ z z z z z 
e ~ 1-1 + 2- 3 + 2- 5 + 


z z z 
2-7 + 2 


The maximum relative error of this 
approximation is 2 ~ 29 . 

5. Multiply 7r d by 2” b by a right shift, 
and give the hexadecimal exponent of a 
to obtain 2 y . 

6 . Computations are carried out in fixed 
point to insure accuracy. 

The effect of an argument error is 
Since A = 6 »x, for the larger value of x, 
even the round-off error of the argument 
causes a substantial relative error in the 
answer. 


r- t-t-- 1 

| <Me) I M(e) | 

j ROOT-MEAN-SQUARE j MAXIMUM | 
| ARGUMENT (Relative |Relative | 


RANGE j ERROR j ERROR 

I SIN 1 

I--T-T- \ 

I|x|<n | 2. 02 xl 0” 7 j 1 .59x10*" 6 j 

I 2 | || 

f- - 1 - x - 1 

|These statistics are based on a uniformly| 

(distributed argument sample. | 

L_J 


Figure 49. COS Subprogram, Relative Error 


I | a (E) | M (E) 

j j ROOT-MEAN-SQUARE j MAXIMUM 

j ARGUMENT |Absolute |Absolute 

j RANGE |ERROR [ERROR 

| -J---L- j 

| SIN 

M x| <2 js. 55x10- 8 Jl. 31 xIO -7 ^ 

2 I I 

|JL<I X I-10 |5.53x10- 8 | 1.41 x 1 0 -7 

\2 I | 

j.- 1 - 1 - 

t10<1x|<100 |5.61x10-8 j1.46x10 -7 


| COS 

|0<x<n ~|5.48x1 O'® 

| - +- 


J1.47x10— 

+- 

|1.42x10-7 

+- 

|1.35x10-7 


|-10<x<0,n<x<10 I 5.67x10-8 

| 10 <| x |<100 | 5 . 61 x 10-8 

|These statistics are based on a uniformly 
(distributed argument sample. 

i-j 

Figure 50. COS Subprogram, Absolute Error 
STORAGE REQUIREMENTS: 252 bytes. 


CALLING SEQUENCE: Out-of-line. 


COS Subprogram 


CONSIDERATIONS: Checking is done at object 
time to ensure that the argument is within 
the valid argument range; if it is not, an 
error message is printed and execution is 
terminated. 


PURPOSE: To compute the trigonometric sine 
(SIN) or the trigonometric cosine (COS) of 
a real argument representing an angle (in 
radians) . 


METHOD: 

1. Define z = ^ •|x|. Separate z into 
the integer part q and the fraction 
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part r. z = q + r. |x| = J «q+Jr. A 

long form multiplication is used to 
obtain accuracy. 

2. If cosine is desired, add 2 to q. If 
sine is desired and if x is negative, 
add 4 to q. 

This reduces the general case to the 
computation of sin (x) for x > 0, since 

cos (+x) = sin^|+x^ 

sin (-x) = sin (n+x) . 

3. Let qo h q mod 8. 


Then for 

% 

= 

0, 

sin (x) 

= 

sin (r r ) 

for 

q Q 

= 

1, 

sin (x) 

= 

cos 2 ( 1 -r) 

for 

q Q 

= 

2. 

sin (x) 

= 

cos (Jr) 

for 

q G 

= 

3, 

sin (x) 

= 

sin J( 1 -r) 

for 

q Q 

= 

*», 

sin (x) 

=- 

-sin(j. r ) 

for 

q Q 

= 

5, 

sin (x) 

= 

- cos J ( i_ r) 

for 

S G 

= 

6 , 

sin (x) 

= 

- cos (| r ) 

for 

q Q 

= 

7 , 

sin (x) 

= 

~ s in J( 1 -r) 


These formulae reduce the case to the 
computation of (sin jr-,^ or cos^r^ 
where r*= r or 1-r. 0 < r 1 < 1. 

4. Sin^r^ and cos^jj-r^ are computed 

using the Chebyshev interpolation 
polynomials of degree 3 in r 2 for the 
respective functions. The maximum 
relative error of the sine polynomial 
is 2 -20 1 and that of the cosine 
polynomial is 2~ 21 * ®. 

The effect of an argument error is E~A. 
As the argument gets larger, A grows, and 
since the function value is periodically 
diminishing, no consistent relative error 
control can be maintained outside the prin¬ 
cipal range : 

(” 2'f)* s i mi i ar observation 
holds true for cosine as well. 

CALLING SEQUENCE: Out-of-line. 

DLOG Subprogram 


PURPOSE: To compute the natural (DLOG) or 
the common (DLOG10) logarithm of a double¬ 
precision number. 


ENTRY POINTS: DLOG and DLOG10 


RANGE: 0<x 

ACCURACY: The accuracy of the DLOG 

Subprogram is shown in Figures 51 and 52. 


i I a (E) I M (E) 

| |ROOT-MEAN-SQUARE j MAXIMUM 

| ARGUMENT |Absolute |Absolute 

j RANGE j ERROR I ERROR 

h--L-X- 

j DLOG 

|0.5<x<1.5 I7.29x10- i7 Jl.85x10~ i6 ^ 

|DLOG10 

h 


| 0.5<x< 1.5 | 3. 09x10-* 7 8.23x10“* 7 

f-- L - 


|These statistics are based on a uniformly 
|distributed argument sample. 

Figure 51. DLOG Subprogram, Absolute Error 


1 

I 


°(e) I M( e ) 

|ROOT-MEAN-SQUARE|MAXIMUM 
ARGUMENT |Relative |Relative 

RANGE j ERROR |ERROR 


DLOG 

I*- T - 

x outside | 

(0.5, 1.5) | 5.46x10—* 7 

DLOG10 

x outside | 

(0.5,1.5) | 9.96x10—* 7 


H 


r- 

I 

|3.31x10“ 16 
-x--j 


H 


|6.14x10-*® 
x- 

These statistics are based on an exponen¬ 
tially distributed argument sample. 


Figure 52. DLOG Subprogram, Relative 
Error 

STORAGE REQUIREMENTS: 365 bytes. 

CONSIDERATIONS: Checking is done at object 

time to ensure that the argument is within 
the valid argument range; if it is not, an 
error message is printed and execution is 
terminated. 

METHOD: 

1. Write x = 16 p « 2~ q « m where p is the 
exponent, 0 < q < 3 and h < m < 1. 

2. Define 2 constants a, b (a = base 
point, 2- b = a) as follows: 
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1 . 

0 . 

a • and 

1 -z 

|z| < 0.1716 

3. Now x = 2 4p - q - b (l±2) . 

Hence log e x = (4p-q-b) log e 2 + log e 

ir-i) 

4 . Log^—^is computed by using the 

Chebyshev interpolation polynomial of 
degree 7 in z 2 for the range 
0 < z 2 < 0.0 2944. The maximum rela¬ 
tive error of this polynomial is 

2-59 ® m 

5. If the common logarithm is wanted, use 
log 10 x = log 1Q e • log e x. 

The effect of an argument error is E~<$. 
This means that if the argument is close to 
1 , the relative error can be very large, 
since the function value there is very 
small. 


If j<m a - 2' b = 

If i. < n < 1 , a = 1, b = 

V 2 

Obtain z = ---. Then m = 
m+a 


CALLING SEQUENCE: Out-of-line. 


CONSIDERATIONS: Checking is done at object 
time to ensure that the argument is within 
the valid argument range; if it is not,an 
error message is printed and execution is 
terminated. 


METHOD: 

1. If x = 0, the answer is 0. 

2. Write x = 16 2p_C5 • m, where 2p-q is 

the exponent, q = 0 or 1 , and m is 

i 

the mantissa, < m < 1. Then x — 

1 6 p « 2“ 2 q •Vm. 

3 . Construct the 1 st approximation of Vx" 

as follows: y 0 = 2~ 2q * + f 

Multiplication of 2 ~ 2 for the odd 
characteristic case is accomplished by 
the use of the halve instruction. The 
maximum relative error of this approx¬ 
imation is 

4 . Apply Newton-Raphson iteration, y n +i = 

2 ^Yn + y )' 4 times to y 0 as follows: 
a. Twice in the short form, and then 


b. Twice in the long form. 



* 



DSQRT Subprogram 

PURPOSE: To compute the square root of a 

double-precision number. 

ENTRY POINT: DSQRT 


The last step is performed as 
Y 4 = y 3 + 2 ^y “ Y 3 ) minimize the 


computational truncation error. The 
maximum relative error of the final 
result is theoretically 2 ~ 65-7 . 


RANGE: 0<x. 


ACCURACY: The accuracy of 

program is shown in Figure 

the DSQRT 
53. 

Sub- 

r 

1 

a (e) 

M( e ) 

i 

i 

I 

| ROOT-MEAN- 

1 

i 

1 

| SQUARE 

j MAXIMUM 

i 

| ARGUMENT 

j Relative 

j Relative 

i 

j RANGE 

i 

|ERROR 

|ERROR 


|The full range | 2.17 xl 0 1,7 

jl. 08x10- 

«6 ] 


[These statistics are based on an exponen 
itially distributed argument sample. 


__J 

Figure 53. DSQRT Subprogram, Relative 


The effect of an argument error is 
CALLING SEQUENCE: Out-of-line. 

DATAN Subprogram 

PURPOSE: To compute the principal value 

(in radians) of the arctangent of a double¬ 
precision number. 

ENTRY POINT: DATAN 

RANGE: Any size double-precision argument 

is acceptable to this subprogram. 


Error 

STORAGE REQUIREMENTS: 144 bytes. 


ACCURACY: The accuracy of the 

Subprogram is shown in Figure 54. 


DATAN 
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ARGUMENT 

RANGE 


o (e) 

|ROOT-MEAN- 
|SQUARE 
(Relative 
|ERROR 


jThe full range|6.64 xIO -17 

I 


I 
I 

|MAXIMUM 
(Relative 
j ERROR 
*+“ 

^.oaxio - 116 


M(e) 


-^ 


I" x - x -^ 

|These statistics are based on tangents of| 

I | 

(uniformly distributed numbers between - 
land | . 

Figure 54. DATAN Subprogram, Relative 
Error 


STORAGE REQUIREMENTS: 312 bytes. 


w (x) 


64*27 


_J7 9_ 

3*7*17 


+x -2 - 


further terms 


The relative error of the formula (*) 
is less than 2~ 57 9 . 


The effect of an argument error is E~ 
&/ (1+x 2 ) . For small x,e^ 6 ; and as x 
becomes large, the effect of 6 on e dimin¬ 
ishes, 

CALLING SEQUENCE: Out-of-line. 


DTANH Subprogram 


PURPOSE: To compute the hyperbolic tangent 

of a double-precision number. 

ENTRY POINT: DTANH 


METHOD: 

1. Reduce the general case to the case 

0 < x < 1 by using atan (-x) = 

- atan (x) , atan y^y = - - atan |x|. 

2. Reduce further to the case |x| < tan 

15° by atan (x) = 30° + atan ^ 

Extra care is taken to avoid a loss of 
significant digits in computing VT x 

- 1 . 


3. 


For the basic range |x| < tan 15°, use 
a continued fraction of the form: 


at&n_x _ + + § 1 x 2 _ 
x b-i+x 2 + 

b 4 +x 2 


b 2 +x 2 

(*) 


_ 

b 3 +x 2 


RANGE: Any size double precision argument 

is acceptable to this subprogram. 

ACCURACY: The accuracy of the DTANH Sub¬ 

program is shown in Figure 55. 


| ARGUMENT 
| RANGE 


a(e ) 

|ROOT-MEAN- 
|SQUARE 
j Relative 
j ERROR 


M(e ) 


I 
I 

|MAXIMUM 
j Relative 
|ERROR 


I 

| 2.00 xl O*" 1 * 6 | 

-+-^ 

|1.99x1O ” 16 | 

-± --j 

(These statistics are based on a uniformly! 
|distributed argument sample. 

Figure 55. DTANH Subprogram, Relative 
Error 

STORAGE REQUIREMENTS: 332 bytes. 


||x|<0.54931 

h 


|4.45x10 ” 17 


| 0.54931<|x|<5 (2.54x1 0 "" 1 7 


The coefficients were derived by 
transforming the continued fraction: 

_i 3 • 4_ 

atan_x _ 1 _3_ 2 5 • 7 

x " 3 , 23_ 

5 +x " 2 - 5•9+x -2 


16*25 
7*81*11_ 

59_+x -2 

9*13 


4*3*49_ 

5*11*169_ 

3*37_+x -2 
13*17 -w 


Here take the approximation ———-— rr—r- 
^ 5*11*13*17 

(-x -2 + 4 0) for the value of w where 
the true w is : 


CONSIDERATIONS: The subprogram DEXP is 

used by this subprogram. 

METHOD 

1. For |x| < 0.54931, use the following 
fractional approximation: ^ = 


1 - aix 2 + a 2 x 4 + a 3 x 6 + x 8 _ 

b 0 + bix 2 + b 2 x 4 + b 3 x 6 + x 8 


(*) 


where a 1 = 676440.765 b G = 2029322.295 
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tanh (x) = 1 - 


a 2 = 45092.124 b, = 947005.29 
a 3 = 594.459 b 2 = 52028.55 

b 3 = 630.476 

This formula was obtained by trans¬ 
forming the continued fraction, 

tanh_lx) 1 x 2 x 2 

X 1+ 3 + 5 + ... + 15 + W 

with an approximate value 0.017 for 

w = xf xf 

17 + 19 + . . . 

The maximum relative error of the 
formula (*) is 2' 64 5 . 

2 . For 0.549 31 < x < 20.101, use 

_ 2 _ 

e 2x + 1 * 

3. For 20.101 < x, use tanh (x) = 1. 

4. For x< -0.54931, tanh (x) = - tanh (-x) . 

5. The long form exponential function is 
used in the case 2 above. 

The effect of an argument error is E~ 
(1-tanh 2 x) A , e — 2A/sinh 2x. Thus, for 
small x, e— 6 g and as x gets larger, the 
effect of 6 on e diminishes. 


CALLING SEQUENCE: Out-of-line. 


DCOS Subprogram 

PURPOSE: To compute the sine (DSIN) or 

cosine (DCOS) of a double-precision argu¬ 
ment representing an angle (in radians) . 

ENTRY POINTS: DCOS and DSIN 

RANGE: |x|<2 5 °. n 

ACCURACY: The accuracy of the DCOS Subpro¬ 

gram is shown in Figures 56 and 57. 

f [ a (e) I MU> ] 

I |ROOT-MEAN- | I 

| |SQUARE jMAXIMUM |• 

I ARGUMENT |Relative |Relative | 

RANGE |ERROR I ERROR 

t--J-J--] 

j DSIN 

[Tx|<- T4.85x 10-« 7 I4.08x10-' 16 | 

^- — -L-J---j 

|These statistics are based on a uniformly| 

|distributed argument sample. 

Figure 56. DCOS Subprogram, Relative Error 


1 

1 

1 

j ARGUMENT 

| RANGE 

a (E) 

|ROOT-MEAN- 
|SQUARE 
[Absolute 
|ERROR 

M (E) 

1 

j MAXIMUM 
j Absolute 
|ERROR 

.± 

”1 

1 

1 

1 

1 

1 

-4 

|dsin 



1 

H 

tl x l S \ 

12. 17x10 —117 

1 

|9.10x10“ i7 

1 

-+ — 

1 

1 

---1 

U<|x|<10 

1 

| 

} 6.35x10 —17 

1 

- 

|1.64 xl0 — * 6 

1 

1 

1 

—\ 

|10<|x|<100 

11.03 x10 _15 

| 2.69 xl 0” i 5 

_J._ 

1 

—| 

[dcos 



1 

—4 

[o<x<n 

1 

— 

f 1 

O 

X 

O 

1 

11.79x10 - * 6 
_ 

1 

1 

-H 

r~ T 

|-10<x<0,n<x<10| 5. 93x10- 11 7 

| 1.76x10-* 6 

1 

—j 

| 10<1x1<100 

Jl.01x10~ 15 

1 

| 2. 65x 10 _ 1 5 

j. — 

1 

—4 

|These statistics are based 
(distributed argument sample 

on a uniformlyj 

1 


Figure 57. DCOS Subprogram, Absolute Error 

STORAGE REQUIREMENTS: 368 bytes. 

CONSIDERATIONS: Checking is done at object 

time to ensure that the argument is within 
the valid argument range; if it is not, an 
error message is printed and execution is 
terminated. 

METHOD: 

1. Divide |x| by ^ and decompose the quo¬ 
tient into the integer part and frac¬ 
tion part. 

y = |x | = q+r, q integer, 0 < r < 1. 

2. If cosine entry, add 2 to q. If sine 
entry with negative argument add 4 to 
q. Let qoE q mod 8. 

cos (x) = sin^lxl + 

sin (-x) = sin (|x I + n) . 

3. Now the answer is 


Compute 


sin 

l (q 0 +r ) 

0 

< 

qo 

< 

7 

sin 

n 

4 

r 

if 

qo 

= 

0 

or 

4 

cos 

n 

4 

(1-r) 

if 

qo 

= 

1 

or 

5 

cos 

n 

4 

r 

if 

qo 

= 

2 

or 

6 

sin 

n 

4 

(1-r) 

if 

qo 

= 

3 

or 

7 

where 

ro is 

r 

or 

1- 

-r. 

is 


r Q 
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METHOD: 


computed by the use of the Chebyshev 
interpolation polynomial of degree 6 
in r 0 2 in the range 0 < r Q 2 < 1. The 
maximum relative error of this poly¬ 
nomial is 2 ~ 58 . 

Cos j|r 0 is computed 

by using the Chebyshev interpolation 
polynomial of degree 7 in r Q 2 in the 
range 0<r o 2 <1. The maximum relative 
error of this polynominal is 2~ 64 * 3 . 

4. If q < 4, give negative sign to the 
result. 

The effect of an argument error is 
E ~ A. As the argument gets larger, A 
grows, and since the function value is 
periodically diminishing, no consistent 
relative error control can be maintained 

outside the principal range /-n, e ' \ . This 

V 2 2 ) 

holds for both sine and cosine. 

CALLING SEQUENCE: Out-of-line. 


DEXP Subprogram 


PURPOSE: To compute the value of "e" 

raised to the power of a double-precision 
argument. 

ENTRY POINT: DEXP 
RANGE: x<174.67309 

ACCURACY: The accuracy of the DEXP subpro¬ 

gram is shown in Figure 58. 


1. If x < -180.2183, give 0 as the 

answer. 

2. Divide x by log e 2 and decompose the 
quotient as: 

y = x / log e 2 = 4a - b - ~ - d 
where a, b, and c are integers, 

0 <b < 3, 0 < c < 15 and 0 < d < 

1 6 

Then e x = 2 y = 16 a • 2~~ b « 2“c/ 1 6«2“ d . 

3. Compute 2“ d by using the Chebyshev in¬ 
terpolation polynominal of degree 6 

i 

over the range 0 < d <yg. The maximum 
relative error of this polynominal is 

2-57. 

4. If c > 0, multiply 2~ d by 2"C/**«. The 
15 constants 2“ c / 16 , 1 < c< 15 are 
included in the subroutine. 

5. If b > 0, halve the result b - times. 

6. Multiply by 16 a by adding a to the 
characteristic of the result. 

The effect of an argument error is e*~A. 
Since A=e* x, for the larger value of x, 
even the round-off error of the argument 
causes substantial relative error in the 
result. 

CALLING SEQUENCE: Out-of-line. 


r- t-t- 1 

I I a(e) | M(e) | 

| |ROOT-MEAN-SQUARE|MAXIMUM | 

| ARGUMENT |Relative jRelative j 

| RANGE |ERROR jERROR | 

Mx|<1 f 7. 49x 1 0“* 7 j^2. 27 xl 0~ 1 6 ] 

I-- + -+-^ 

|1<|x|<20 |8.69 xl0 —i6 |2.31x10- i5 | 

y - + --+-^ 

|20<|x|<170 |9.33x10-<6 |2.33x10~ 15 | 

I--- 1 -- x -^ 

|These statistics are based on a uniformly| 
(distributed argument sample. j 

Figure 58. DEXP Subprogram, Relative Error 


STORAGE REQUIREMENTS: 452 bytes. 

CONSIDERATIONS: Checking is done at object 
time to ensure that the argument is within 
the valid argument range; if it is not,an 
error message is printed and execution is 
terminated. 


MOD Subprogram 


PURPOSE : To compute the result of the 
first integer argument modulo the second 
integer argument. Modulo is a mathematical 
operator which yields the remainder 
function of division. Thus, 9 modulo 6^3. 

ENTRY POINT: MOD 

RANGE: Any arguments, except as noted 
under considerations, are acceptable to 
this subprogram. 

ACCURACY: No error is produced by the 
computation in this subprogram. 

STORAGE REQUIREMENTS: 58 bytes. 

CONSIDERATIONS: Checking is done at object 
time to ensure that the second argument is 
not zero; if it is zero f the first argument 
is given as the result. 
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METHOD: MOD (x,y) =x- (x/y) *y 

The result is calculated according to 
the above formula. If this result is 
negative, the absolute value of modulus y 
is added to it, giving a non-negative value 
less than y. 

pat.t.tnG SEQUENCE: Out-of-line. 


AMOD Subprogram 


PURPOSE: To compute the result of the 

first real-number argument (AMOD) or 
double-precision argument (DMOD) modulo the 
second argument. Modulo is a mathematical 
operator which yields the remainder 
function of division. Thus 3=39 modulo 6. 

EMTRY POINTS: AMOD and DMOD. 

RANGE: Any arguments, except as noted 

under considerations, are acceptable to 
this subprogram. 

ACCURACY: No error is produced by the 

computation in this subprogram. 

STORAGE REQUIREMENTS: 112 bytes. 

CONSIDERATIONS: Checking is done at object 

time to ensure that the second argument is 
not zero; if it is zero the first argument 
is given as the result. 

METHOD: AMOD or DMOD (x,y) = X - (x/y) * y 


The result is calculated according to 
the above formula. If this result is 
negative, the absolute value of modulus y 
is added to it, giving a non-negative value 
less than y. 

CALLING SEQUENCE: Out-of-line. 


MAXO Subprogram 


PURPOSE: To select the maximum (AMAXO or 

MAXO) or the minimum (AMINO or MINO) inte¬ 
ger value from a list of integer numbers, 
with the option of converting the result 
(AMAXO or AMINO) to a real number or giving 
an integer result (MAXO or MINO) . 

ENTRY POINTS: MAXO, AMAXO, MINO, and AMINO 

RANGE: Any size argument is acceptable to 

this subprogram. 

ACCURACY: No error is produced by the 

computation in this subprogram. 


STORAGE REQUIREMENTS; 185 bytes. 
CONSIDERATIONS: None. 

METHOD: Starting with the second argument 

and proceeding to the end of the argument 
list, each argument is algebraically com¬ 
pared to the maximum (AMAXO and MAXO) or to 
the minimum (AMINO and MINO) of the pre¬ 
vious arguments to yield a new maximum or 
minimum. For AMAXO or AMINO the result is 
then converted to a real number. 

CALLING SEQUENCE: Out-of-line. 


MAXI Subprogram 

PURPOSE: To select the maximum (AMAX1 or 

MAXI) or the minimum (AMIN1 or MINI) real 
value from a list of real numbers, with the 
option of converting the result (MAXI or 
MINI) to an integer number or giving a 
real—number result (AMAX1 or AMIN1) • 

ENTRY POINTS: MAXI, AMAX1, MINI, and AMIN1 

RANGE: Any size argument is acceptable to 

this subprogram. 

ACCURACY: No error is produced by the 

computation in this subprogram. 

STORAGE REQUIREMENTS: 185 bytes. 

CONSIDERATIONS: None. 

METHOD: Starting with the second argument 

and proceeding to the end of the argument 
list, each argument is algebraically com¬ 
pared to the maximum (AMAX1 and MAXI) or to 
the minimum (AMIN1 and MINI) of the pre¬ 
vious arguments to yield a new maximum or 
minimum. For MAXI or MINI the result is 
then converted to an integer number. 

CALLING SEQUENCE: Out-of-line. 


DMAX1 Subprogram 


PURPOSE: To select the maximum (DMAX1) or 

the minimum (DMIN1) double-precision value 
from a list of double-precision numbers. 

ENTRY POINTS: DMAX1 and DIN1 

RANGE: Any size argument is acceptable to 

this subprogram. 

ACCURACY: No error is produced by the 

computation in this subprogram. 

STORAGE REQUIREMENTS: 101 bytes. 
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CONSIDERATIONS: None. 

METHOD; Starting with the second argument 
and proceeding to the end of the argument 
list, each argument is algebraically com¬ 
pared to the maximum (DMAX1) or to the 
minimum (DMIN1) of the previous arguments 
to yield a new maximum or minimum. 

CALLING SEQUENCE: Out-of-line. 


FLOAT Subprogram 


PURPOSE: To convert an integer number to a 

single-precision real number (FLOAT) or a 
double-precision real number (DFLOAT). 

ENTRY POINTS: FLOAT and DFLOAT 

RANGE: Any size argument is acceptable to 

this subprogram. 

ACCURACY: There is a loss of precision 

when absolute x is greater than 2**24. 

STORAGE REQUIREMENTS: 80 bytes. 

CONSIDERATIONS: If the argument exceeds 

the valid argument range the result will be 
meaningless. 

METHOD: The absolute value of the argument 

is used as the mantissa, a proper charac¬ 
teristic is created, and the sign of the 
argument is transferred to the result. 

CALLING SEQUENCE; In-line. 


METHOD: An unnormalized add of floating 
point zero is used to shift the fractional 
part of the absolute value of the argument 
out of the register. The exponent is 
discarded and the sign of the argument is 
transferred to the result. 


CALLING SEQUENCE: In-line. 


AINT SUBPROGRAM 


PURPOSE: To truncate the fractional por¬ 

tion of the mantissa of a real number. 

ENTRY POINT: AINT 

RANGE: Any size argument is acceptable to 

this subprogram. 

ACCURACY: No error is produced by the 

computation ip this subprogram. 

STORAGE REQUIREMENTS: 68 bytes. 

CONSIDERATIONS: If the absolute value of 

the argument is less than one the result is 
zero. 

METHOD: AINT (x) = sign of x times the 

largest integer >|x|. 

The fractional portion of the argument 
is deleted. 

CALLING SEQUENCE: Out-of-line. 



IFIX Subprogram 


PURPOSE: To convert a single- real number 

to an integer number (IFIX) and to truncate 
the fractional portion of the mantissa of a 
real number and convert the modified real 
value to an integer number. 

ENTRY POINTS: IFIX, INT and IDINT. 

RANGE: |x|< (2**31) 

ACCURACY: There is a loss of precision 

when absolute x is greater than 2**24. 

STORAGE REQUIREMENTS: 112 bytes. 

CONSIDERATIONS: 

1. The library subprogram IFIX is used to 
convert the modified value. 

2. If the value exceeds the valid argu¬ 
ment range, the result is given as 
zero. 


ABS Subprogram 


PURPOSE: To obtain the absolute value of a 

real number. 

ENTRY POINT: ABS 

RANGE: Any size argument is acceptable to 

this subprogram. 

ACCURACY: No error is produced by the 

computation in this subprogram. 

STORAGE REQUIREMENTS: 2-6 bytes. 

CONSIDERATIONS: The argument may be a 

mixed-mode expression but the result of the 
expression must be the same type as the 
function. 

METHOD: ABS (x)=|x| 

The sign of x is forced t.o plus. 

CALLING SEQUENCE: In-line. 
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DABS Subprogram 

PURPOSE: To obtain the absolute value of a 

double-precision number, 

ENTRY POINT: DABS 

RANGE: Any size argument is acceptable to 

this subprogram. 

Accuracy: No error is produced by the 

computation in this subprogram. 

STORAGE REQUIREMENTS: 2-6 bytes. 

CONSIDERATIONS: The argument may be a 

mixed-mode expression but the result of the 
expression must be the same type as the 
function. 

METHOD: DABS (x) = | x | 

The sign of x is forced to plus. 

CALLING SEQUENCE: In-line. 


DIM Subprogram 

PURPOSE: To compute the result of the 

first real argument minus the smaller of 
the first and second real arguments. 

ENTRY POINT: DIM 

RANGE: Any size argument is acceptable to 

this subprogram. 

ACCURACY: No error is produced by the 

computation in this subprogram. 

STORAGE REQUIREMENTS: 8-18 bytes. 

CONSIDERATIONS: None. 

METHOD: DIM (x,y) = x - minimum (x,y) 

y is subtracted from x, if the differ¬ 
ence is negative the result is equal to 
zero. If the difference is positive the 
result is equal to the difference. 

CALLING SEQUENCE: In-line. 


DSIGN Subprogram 

PURPOSE: To transfer the sign of the 

second double-precision argument to the 
first double-precision argument. 

ENTRY POINT: DSIGN 


RANGE: Any size argument is acceptable to 

this subprogram. 

ACCURACY: No error is produced by the 

computation in this subprogram. 

STORAGE REQUIREMENTS: 10-20 bytes. 

CONSIDERATIONS: None. 

METHOD: DSIGN (x,y) sign of y* x 

The value of y is tested. If positive , 
the sign of x is forced plus; if negative 
the sign of x is forced minus. 

CALLING SEQUENCE: In-line. 


IABS Subprogram 

PURPOSE: To obtain the absolute value of 

an integer number. 

ENTRY POINT: IABS 

RANGE: Any size argument is acceptable to 

this subprogram. 

ACCURACY: The only error produced is when 

the argument is -2 3i . 

STORAGE REQUIREMENTS: 2-6 bytes. 

CONSIDERATIONS: The argument may be a 

mixed-mode expression but the result of the 
expression must be the same type as the 
function. 

METHOD: IABS (x) = | x| 

The sign of x is forced to plus. 

CALLING SEQUENCE: In-line. 


IDIM Subprogram 


PURPOSE: To compute the result of the 
first integer argument minus the smaller of 
the first and second integer arguments. 

ENTRY POINT: IDIM 

RANGE: Any size argument is acceptable to 

this subprogram. 

ACCURACY: No error is produced by the 
computation in this subprogram. 

STORAGE REQUIREMENTS: 8-18 bytes. 

CONSIDERATIONS: None. 
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METHOD: IDIM (x, y) =x - minimum (x, y) 

y is subtracted from x, if the differ¬ 
ence is negative the result is equal to 
zerOm If the difference is positive the 
result is equal to the difference* 

CALLING SEQUENCE: In-line. 


ISIGN Subprogram 


PURPOSE: To transfer the sign of the 

second integer argument to the first inte¬ 
ger argument. 

ENTRY POINT: ISIGN 

RANGE: Any size argument is acceptable to 
thi s sub prog r am. 

ACCURACY: No error is produced by this 

subprogram. 

STORAGE REQUIREMENTS: 10-20 bytes. 

CONSIDERATIONS: None. 

METHOD: ISIGN (x,y) = sign of y*|x| 

The value of y is tested. If positive, 
the sign of x is forced plus; if negative 
the sign of x is forced minus. 

CALLING SEQUENCE: In-line. 


SIGN Subprogram 


PURPOSE: To transfer the sign of the 

second real number argument to the first 
real number argument. 

ENTRY POINT: SIGN 

RANGE: Any size argument is acceptable to 

this subprogram. 

ACCURACY: No error is produced by the 

computation in this subprogram. 

STORAGE REQUIREMENTS: 10-20 bytes. 

CONSIDERATIONS: None. 

METHOD: SIGN (x,y) = sign of y*|x| 

The value of y is tested. If positive, 
the sign of x is forced plus; if negative 
the sign of x is forced minus. 

CALLING SEQUENCE: In-line. 


SNGL Subprogram 

PURPOSE: To convert a double-precision 

argument to a real argument. 

ENTRY POINT: SNGL 

RA NGE: Any size argument is acceptable to 

this subprogram. 

ACCURACY: No error is produced by the 

computation in this subprogram. 

STORAGE REQUIREMENTS: None. 

CONSIDERATIONS: None. 

METHOD: The most significant part of a 

double-precision number is supplied. 

CALL1NG SEQUENCE: In-line. 

DBLE Subprogram 

PURPOSE: To convert a real argument to a 

double-precision argument. 

ENTRY POINT: DBLE 

RANGE: Any size argument is acceptable to 

this subprogram. 

ACCURACY: No error is produced by the 

computation in this subprogram. 

STORAGE REQUIREMENTS: 4-6 bytes. 

CONSIDERATIONS: None. 

METHOD: The least significant part of a 

double precision number is supplied. 

CALLING SEQUENCE: In-line. 

SERVICE SUBPROGRAM DESCRIPTIONS 

The FORTRAN service subprograms are all 
out-of-line subprograms. The description 
of each service subprogram includes: 

1. Purpose. 

2. Permissible entry points. 

3 . Format. 

4. Storage requirements. 

5. Considerations that should be noted in 
using the subprogram. 
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6. Usage. 

In the following descriptions, i rep¬ 
resents an integer expression and j rep¬ 
resents an integer variable. 


EXIT Subprogram 


PURPOSE: To terminate the execution of a 
program and returns control to the system 
director. Entry Point: EXIT 

FORMAT: CALL EXIT 

STORAGE REQUIREMENTS: 24 bytes. 

CONSIDERATIONS: This subprogram performs 
the same function as the STOP statement. A 
program written in assembler language may 
use the EXIT subprogram; a program written 
in FORTRAN may use either the STOP state¬ 
ment or the EXIT subprogram. 

USAGE: Control is given to a routine which 
performs internal services and returns con¬ 
trol to the FORTRAN system director. 


DUMP Subprogram 


PURPOSE: To dump the indicated limits of 

storage in the specified format with (DUMP) 
or without (PDUMP) program termination. 

ENTRY POINTS: DUMP and PDUMP 

FORMAT: CALL DUMP or CALL PDUMP 

(A*| *B 1r F 1r ... # A n , B n , F n ) 

Where A and B are variable data names 
indicating the limits of storage to be 
dumped; either A or B may represent the 
upper or lower limits of storage to be 
dumped; F is an integer that indicates the 
format of the dump. 

STORAGE REQUIREMENTS: 445 bytes. 

CONSIDERATIONS: None. 

USAGE: Each set of A, B, and F parameters 

are treated separately. If no parameters 
are given, all storage is dumped in hexa¬ 
decimal. The A and B parameters are exam¬ 
ined to determine which indicates the lower 
limit and which indicates the upper limit 
of storage to be dumped. 

The value of F is used to determine the 
format of the dump as follows: 

0 specifies a hexadecimal dump format; 
4 specifies an integer dump format; 


5 specifies a real dump format; 

6 specifies a double-precision dump 
format. 

If F is not specified, the dump is in 
hexadecimal format. The appropriate con¬ 
version routine is then called to format 
the records to be dumped and these records 
are written by the input/output routine. 


SLITE Subprogram 


PURPOSE: To turn sense lights on or off 
(SLITE), and test whether a sense light is 
on or off (SLITET) . 


ENTRY POINTS: SLITE and SLITET 

STORAGE REQUIREMENTS: 178 bytes. This is 
the combined size of subprogram SLITE and 
SLITET. 


SLITE SUBPROGRAM: This subprogram turns 
sense lights on or off. 

FORMAT: SLITE (i) where iisO, 1, 2, 3, 
or 4. 

CONSIDERATIONS: If the value of i is not 
0, 1, 2, 3, or 4a message is printed and 
execution is terminated. 

USAGE: The value of i is tested and the 
corresponding sense light turned on; if the 
value of i is zero, all sense lights are 
turned off. Each sense light occupies one 
byte of storage. When the byte contains 
zeros it is off; when it does not contain 
zeros it is on. 

SLITET SUBPROGRAM: This subprogram tests 
whether a sense light is on or off. 

FORMAT: SLITET (i, j) , where i is 1, 2, 3, 
or 4; j is set to 1 or 2. 

CONSIDERATIONS: If the value of i is not 
1# 2, 3, or 4 a message is printed and 
execution is terminated. 

USAGE: The value of i is tested and the 
corresponding sense light is examined; j is 
then set to 1 if the sense light was on or 
2 if the sense light was off. The sense 
light that was tested is then turned off. 
Each sense light occupies one byte of 
storage. When the byte contains zeros it 
is off; when it does not contain zeros it 
is on. 
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OVERFL Subprogram 


PURPOSE: To test: for exponent overflow or 

underflow. 

ENTRY POINT: OVERFL 

FORMAT: OVERFL (j) Where j is set to 1, 2, 

or 3. 

STORAGE REQUIREMENTS: 76 bytes. 
CONSIDERATIONS: None. 

USAGE: The status of the overflow indica¬ 

tor is examined; j is set to 1 if a 
floating-point overflow condition exists, 
that is if the result of an arithmetic 
operation is greater than 16 63 ; j is set to 
2 if no overflow condition exists; j is set 
to 3 if a floating-point underflow condi¬ 
tion exists, that is if the result of an 
arithmetic operation is not zero but less 
than 16~ 63 . After j is set the machine is 
left in a no overflow condition. 


DVCHK Subprogram 


PURPOSE: To test for divide check inter¬ 

ruptions. 


ENTRY POINT: DVCHK 


FORMAT: DVCHK (j) where j is set to 1 or 

2 . 


STORAGE REQUIREMENTS: 60 bytes. 
CONSIDERATIONS: None. 

USAGE: The status of the divide check 
indicator is examined; j is set to 1 if the 
indicator is on or 2 if the indicator is 
off. After j is set, the indicator is 
turned off. The divide check indicator 
occupies one byte of storage. When the 
byte contains zeros it is off; when it 
contains any other bit pattern it is on. 
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APPENDIX E: COMPILER CARD OUTPUT 


The Basic Programming Support FORTRAN IV 
compiler generates seven types of object 
program statements (on cards or tape) when 
compiling a program. They are: 12-2-9 ESD 
(three types), 12-2-9 TXT, 12-2-9 RLD, 
12-2-9 and END. The format and description 
of each statement is given in the following 
text. 


ESD TYPE 0 STATEMENT 


The External Symbol Dictionary (ESD) 
Type 0 statement defines the name and 
relative starting address of a compiled 
program. There is only one ESD Type 0 card 
for each compiled program in a job. The 
format of the ESD Type 0 statement is 
explained in Figure 59 in terms of an 
80-column card. 


Figure 59. ESD Type 0 Statement 


ESD TYPE 1 STATEMENT 


The External Symbol Dictionary (ESD) 
Type 1 statement defines an entry point 
name within the program to which another 
program may refer. One card is always 
produced for each compiled program. 

The format of the ESD Type 1 statement 
is explained in Figure 60 in terms of an 
80-column card. 


—T" 


| Column | 


Contents | 

-j 


2-4 

5-10 

11-12 

13-14 

15-16 

17-22 

23 


Load card identification 
(12-2-9) . Identifies this as 
a card acceptable to the load¬ 
er. 

ESD. Identifies the type of 
load card. 

Blank. 


The number of bytes in the 
card. Extended card code 
12-0-1-8-9 and 12-11-1-8-9 
(hexadecimal value of 0010). 

Blank. 


External Symbol Identification 
(ESID) . Number, in extended 
card code, assigned to the 
segment. 

Program name. 

Blank. 


(continued) 


j Column | 


Contents 


24 | Extended card code 12-3-8 

(hexadecimal value of a period 
character) used by the loader 
in conjunction with the pro¬ 
gram name. 


25 | Extended card code 12-0-1-8-9 

(hexadecimal value of 00) , 
identifies this as a program 
name card. 


26-28 

29 

30-32 

33-72 

73-76 

77-80 


Address, in extended card 
code, of the first byte of the 
program as assigned by the 
compiler. 

Blank. 

Number of bytes in the pro¬ 
gram. This field is always 
punched in extended card code 
with the hexadecimal value of 
000000 . 

Blank. 

This field is always punched 
with the first four characters 
of the program name. 

This field is always punched 
with a sequential number of 
0001 . 
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r- T -1 

| Column l Contents 

I--+--I 

1 | Load card identification 

(12-2-9) . Identifies this as 
a card acceptable to the load¬ 
er. 

2-4 | ESD. Identifies the type of 

load card. 

5-10 | Blank. 

11-12 | The number of bytes in the 

card. Extended card code 
(hexadecimal value of 0010). 

I 

13-16 | Blank. 

I 

17-22 | Name of entry point. 

23-24 | Blank. 

25 | Extended card code 12-1-9 

(hexadecimal value of 01) , 
identifies *this as an entry 
point card. 

26-28 | The address 000008, in extend¬ 

ed card code, of the entry 
point as assigned by the com¬ 
piler. 

29-30 | Blank. 

31-32 | External Symbol Identification 

(ESID) . The number 0001, in 
extended card code, assigned 
to the program in which entry 
points occur. 

33-72 | Blank. 

73-76 | This field is always punched 

with the first four characters 
of the program name. 

77-80 j This field is always punched 
with a sequential number of 
0002 . 


Figure 60. ESD Type 1 Statement 


The format of the ESD Type 2 statement 
is explained in Figure 61 in terms of an 
80-column card. 


ESD TYPE 2 STATEMENT 


The External Symbol Dictionary (ESD) 
Type 2 statement points to a name within 
another program to which this program may 
refer. It is assigned an identifying num¬ 
ber of 2 through 15, according to the order 
in which it is encountered among the exter¬ 
nal symbols in the program. 


j Column | 


Contents 


2-4 


5-10 


11-12 


13-14 

15-16 


17-22 

23-24 

25 

26-28 


29-32 

33-48 


49-64 


73-76 


77-80 


Load card identification 
(12-2-9). Identifies this as 
a card acceptable to the load¬ 
er. 


ESD. Identifies 
load card. 

Blank. 


the type of 


The number of bytes in the 
card. Extended card code 
(hexadecimal value of 0010, 
0020, or 0030) . 

Blank. 

External Symbol Identification 
(ESID) . Sequential number, in 
extended card code, assigned 
to the first external symbol 
on this card. 

Name of external symbol. 

Blank. 

Extended card code 12-1-9 
(hexadecimal value of 02) 
identifies this as an external 
symbol card. 

Extended card code 12-0-1-8-9, 
12-0-1-8-9, and 12-0-1-8-9 
(hexadecimal value of 000000). 
An address of 0 is always 
assigned to External Symbols 
by the Compiler. 

Blank. 

This field is used for the 
second external symbol and has 
the same format as columns 
17-32. (If not used, the 
field is blank.) 

This field is used for the 
third external symbol and has 
the same format as columns 
17-32. (If not used, the 
field is blank.) 

This field is always punched 
with the first four characters 
of the program. 

This field is always punched 
with a sequential number. 


Figure 61. ESD Type 2 Statement 
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ESP TYPE 5 STATEMENT 


TXT STATEMENT 


The External Symbol Dictionary (ESD) 
Type 5 statement defines the existence and 
size of the Blank COMMON area reserved for 
the job. 

The format of the ESD Type 5 statement 
is explained in Figure 62 in terms of an 
80-column card. 


The Text (TXT) statement contains the 
instructions and/or constants of the user- 
written program and the starting address at 


which the 
loaded. 

first byte of 

text is 

to 

be 

The format of the 

TXT 

statement 

is 

explained 

80-column 

in Figure 63 
card. 

in 

terms 

of 

an 


r- t -*i 

| Column | Contents 


t-- 

| 1 

| Load card identification 
| (12-2-9) . Identifies this as 
j a card acceptable to the load- 
j er. 

| 2-4 

| ESD. Identifies the type of 
j load card. 

| 5-10 

j Blank. 

| 11-12 

j The number of bytes in the 
j card. Extended card code 

| 12-0-1-8-9 and 12-11-1-8-9 

j (hexadecimal value of 0010). 

| 13-14 

j Blank. 

| 15-16 

| External Symbol Identification 
j (ESID) . The number 0002, in 
j extended card code, assigned 
j to the program. 

| 17-24 

j Blank. 

1 25 

j Extended card code 12-5-9 

j (hexadecimal value of 05) 

| identifies this as a Blank 
j COMMON card. 

| 26-28 

j Address of the first byte of 
j the program as assigned by the 
j compiler. This field is 
j always punched in extended 
j card code with the hexadecimal 
| value of 000000. 

| 29 

j Blank. 

| 30-32 

j Number, in extended card code, 

| of bytes in Blank COMMON. 

| 33-72 

j Blank. 

| 73-76 

j This field is always punched 
j with first four characters of 
j the program name. 

| 77-80 

i 

j This field is always punched 
j with a sequential number of 
| 0003. 

Figure 62. ESD Type 5 Statement 


j Column j 
f - + . 


Contents 


Load card identification 
(12-2-9). Identifies this as 
a card acceptable to the 
loader. 


2-4 

5 

6-8 

9-10 

11-12 

13-14 

15-16 


17-72 


73-76 


77-80 


the type of 


TXT. Identifies 
load card. 

Blank. 


24-bit starting address (in 
extended card code) in storage 
where the information from the 
card is to be loaded. 

Blank. 

Number of bytes (in extended 
card code) of text to be load¬ 
ed from the card. 

Blank. 

External Symbol Identification 
(ESID) . Number, in extended 
card code (hexadecimal value 
of 0001) , assigned to the pro¬ 
gram in which the text occurs. 

A maximum of 56 bytes of 
instructions and/or constants 
assembled in extended card 
code. 

This field is always punched 
with the first four characters 
of the program name. 

This field is always punched 
with a sequential number. 


Figure 63. TXT Statement 


RLD STATEMENT 


The Relocation List Dictionary (RLD) 
statement is produced when the compiler 
encounters an address which is an internal 
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or external symbol. An internal symbol 
represents a point within the program to 
which control of execution can be trans¬ 
ferred. An external symbol represents a 
point within the program from which control 
of execution can be transferred to another 
program. The format of the RLD statement 
is explained in Figure 64 in terms of an 
80-column card. 


Figure 64. RLD Statement 


END STATEMENT 


The END statement is produced by the 
compiler when it encounters an END source 
program statement. This statement ends the 
loading of a compiled program and may 
specify a location within the program to 
which control is transferred at end-of- 
load. 


The format of the END statement is 
explained in Figure 65 in terms of an 
80-column card. 


| Column | 

[ -+- 


Contents 


1 


2-4 


5-10 


11-12 


13-16 


17-72 


Load card identification 
(12-2-9) . Identifies this as 
a card acceptable to the load¬ 
er. 


RLD. Identifies 
load card. 

Blank. 


the type of 


Number, in extended card code, 
of bytes of information in the 
variable field (card columns 
17-72) of this card. The 
range is from 8 to a maximum 
of 56. 

Blank. 

Variable field (in extended 
card code) . Consists of the 
following subfields: 


Relocation 


Header. 


(Two 

bytes.) The ESID with a value 
of from 01 through 15. Wheth¬ 
er or not the value is 01 or 
from 02 through 15 depends on 
whether the symbol it points 
to is internal or external to 
the particular program. 

Position Header . (Two bytes.) 
The ESID assigned to this pro¬ 
gram. 

Flag Byte (bits 0 through 3 
are not used) . This byte con¬ 
tains three items: 

1. Size . (Bits 4 and 5.) 
Two bits which indicate 
the length (in bytes) of 
the adjusted address cell 
(AA Cell) . 


a. 

00 

- one-byte cell 

b. 

01 

- two-byte cell 

c. 

10 

- three-byte cell 

d. 

11 

- four-byte cell 


(continued) 


r- t- 1 

| Column | Contents 

i-- H - i 

i 

| 2. Complement Flag . (Bit | 


| 6.) When this bit is a 

| one, it means that the 

I value (or address) of the 

symbol is to be subtract- 
j ed from the contents of 

the AA Cell. When this 
j bit is a zero, the value 

I of the symbol is to be 

added to the contents of 
j the AA Cell. 

I 

| 3. Continuation Flag . (Bit 

7.) When this bit is a 
one, it means that this 
j is one of a series of 

addresses to be adjusted, 
j When this bit is a zero, 

this is the only AA Cell 
to be adjusted or the 
last in a series using 
the same Relocation and 
j Position headers. 

I 

I Address . The three-byte 

j address of the location of the 
j AA Cell. 

| The Flag Byte and Address may 
j be repeated for AA Cells as 
j long as the continuation flag 
j bit is on in the current four- 
j byte entry. 

I 

73-76 | This field is always punched 

j with the first four characters 
j of the program name. 

I 

77-80 | This field is always punched 

| with a sequential number. 

L-J- 
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APPENDIX F: INITIAL MODIFICATION OF THE DAT 



This section describes the procedures 
for changing the Device Assignment Table 
(DAT) to correspond with the I/O devices 
available at a particular installation. 


The DAT supplied by IBM contains data 
set reference number assignments for a 2540 
Card Read Punch with an actual address of 
00C. If a user is equipped with a card 
read punch of which the actual address is 
not 00C, input cards cannot be read until 
the DAT is initially changed to reflect 
this . 


The process for changing the DAT is as 
follows: 


1. Press the Load Key . This causes the 
FORTRAN system director (FSD) to be 
loaded into storage, along with the 
DAT and control card routine. When 
control of execution is passed to the 
control card routine, it attempts to 
read from the device associated with 
the address 00C. If a card read punch 
is not associated with the address 
00C, the message: 


FIS 00C 


is printed signifying an I/O error 
condition. The system then enters a 
wait state. 


2. Using the Load Address Switch , address 
the card read punch. 


3. Punch the information shown in 
Figure 66 on an 80-column card. This 
card represents a program which, when 
executed, causes the next card in the 
card read punch to be read. 


Column 

i 

Multiple Punch 

- 1 

i 

i-- 

--f- 


—^ 

1 

i 

12-0-1-8-9 


1 2 

i 

12-0-1-8-9 


3 

i 

12-0-1-8-9 


1 4 

i 

12-0-1-8-9 


| 5 

i 

12-0-1-8-9 


1 6 

i 

12-0-1-8-9 


1 7 

i 

0-5-9 


1 8 

i 

12-0-1-8-9 


1 9 

i 

12-2-9 


1 10 

i 

12-0-1-8-9 


1 11 

i 

12-0-1-8-9 


1 12 

i 

12-0-8 


1 13 

i 

11-0-1-8-9 


1 14 

i 

12-0-1-8-9 


1 15 

i 

12-0-1-8-9 


1 10 

i 

12 


17-80 


Blank 

| 

Figure 66. 

Program 

Card Layout 

_j 


4. Punch a /SET card to 
an 80-column card as 

change the DAT on 
follows: 

i 

| Column 1 

1 ♦ 

j /SET 


l 

Column 10 | 

♦ 1 

1=adr (type) | 

j 

where adr is 

the ; 

actual hexadecimal 

address of the 

card 

read punch and 

type is 2540 or 

1442 

. 


5. 

Place 

the program card and /SET card. 


in that 

order. 

in the 

card read punch. 

6. 

Press the Load 

Key. 

This 

causes the 


first 

eight 

columns 

of 

the program 


card to 

be placed into 

the Program 


Status 

Word 

(PSW) ; 

the 

second eight 


columns 

to be 

placed 

into 

the Channel 


Command 

Word 

(CCW) 

as 

shown in 


Figure 67. 













The instruction in the CCW causes the 
next card (i.e., the /SET card) in the 
card read punch to be read into loca¬ 
tion 88. The /SET statement causes 
the DAT to be changed to reflect the 
address of the card read punch being 
used. 


7. After the initial change to the DAT is 
made, additional /SET control cards 
may be used to tailor the DAT to the 
1/0 configuration of a particular 
installation. (See the section, 

"FORTRAN System Maintenance.") 
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DATAN subprogram 34,66 

DBLE subprogram 73 

DCOS subprogram 34,68 
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Editing 36-37 
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/DELETE control statement 28,35 
Format 35 
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Device assignment 

C data conversion 14-15 
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N data conversion 14-15 
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T data conversion 14-15 
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DEXP subprogram 34,69 
DFLOAT subprogram 34,71 
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Object program 20,50-52 
Source program 20,42-49 
DIM subprogram 72 
DLOG subprogram 34,65 
DLOG10 subprogram 34,65 
DMAX1 subprogram 34,70 
DMIN1 subprogram 34,70 
DMOD subprogram 34,70 
DSIGN subprogram 72 
DSIN subprogram 34,68 
DSQRT subprogram 34,66 
DTANH subprogram 34,67 
DUMP subprogram 34,74 
DVCHK subprogram 34,75 
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End of job 39 
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AMAXO 34,70 
AMAX1 34,70 
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AMIN1 34,70 
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DLOG10 34,65 
DMIN1 34,70 
DMOD 34,70 
DSIN 34,68 
IDINT 34,71 
INT 34,71 
MIN0 34,70 
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PDUMP 34,74 
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Error code diagnostics 20,50-52 
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ESD statement 76-78 
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EXIT subprogram 34,73 
EXP subprogram 34,63 
Exponent-overflow exception 51-52 
Exponent-underflow exception 51-52 
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FDXPD subprogram 34 

FDXPI subprogram 34 
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12-2-9 EDR control statement 28,32 
12-2-9 REP control statement 28,30 
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FIXDI subprogram 34 
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12-2-9 ESD 76-78 
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GO option 8 
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IABS subprogram 72 
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IDIM subprogram 34,72 

IDINT subprogram 34,71 

IFIX subprogram 34,71 
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Input/output interruption 39 
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INT subprogram 34,71 
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Interrupt key 39-40 

ISIGN subprogram 73 
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/JOB control statement 7-8 
Job, FORTRAN 7 
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Library subprogram name 

/AFTER control statement 33 
/DELETE control statement 35 
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LIST option 9 
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/LOAD control statement 16-17 
Load key 37,39-40,81 
Lowest level subprogram 58 

M (See Tape density) 

Machine considerations 22-23 
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Minimum 22-23 
MAP option 8,10,17 

/FTC control statement 10 
/LOAD control statement 17 
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68 

DEXP 

69 

DIM 

72 

DLOG 

65 
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70 
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67 

EXP 

63 
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72 
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71 
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73 
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70 
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69 
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73 
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73 
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Program size 
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Source program 20 
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PSW (See Program status word) 

Register use 54 

Relocation header 79 
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DUMP 74 
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SLITE 74 
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SIGN subprogram 73 

SIN subprogram 34,64 
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SNGL subprogram 73 

Source program 
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Size 20 

SQRT subprogram 34,61 

Standard options (See also Options) 7 

Starting instructions 40 
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T (See Data conversion) 
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TANH subprogram 34,63 
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